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©... facts attest to its 


EXCELLENCE!” 


“So far as we are concerned, “Paper Clip is one of the easiest 
Paper Clip is the top word processor of the professional word processors to use, 
running on a micro computer.” with a sensible manual and plenty of aids for the accident-prone,” 
—Ноше Applications For The C-64 -Computing Now 
ж 


From CLAY TABLETS, THROUGH PARCHMENT, GUTENBERG AND BEYOND, MAN HAS 
SEARCHED FOR THE ULTIMATE METHOD TO STORE, SORT AND PRINT THE WRITTEN 
WORD. NOW, BATTERIES INCLUDED PROVIDES THAT METHOD, THE PAPER CLIP FAMILY. 
AN OUTSTANDING WORD PROCESSOR AND SPELLING CORRECTION SYSTEM FOR ALL 
COMMODORE COMPUTERS — AND COMING SOON FOR APPLE AND ATARI. 


186 Queen St West 17875 Sky Park North, 
Pronto, Suite P, irvine, Californi 
MSV 21 Canada "The Energized Software Company!" ул 


(41618961405 


WRITE FOR A FULL COLOR BROCHURE 
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n the night they hand out awards for speed, 

versatility, and dependability, the Commo- 

dore 1541 need not rent a tux. Third party 

drives like the MSD SD-2 and the Indus GT 
have bested it in every category but price. If that last word 
prompted you to say, “Aha! But see?”, then you probably 
wouldn't even consider upgrading. And why should you? 
For the price you probably paid, your Commodore 1541 
does a more than adequate job. And it will do an even 
better job after you soup it up with the programs in this 
issue of Ahoy! 

* The most important program, unfortunately, you'll 
have to buy. In the conclusion to Disk Spinners, Morton 
Kevelson examines three best-selling drive accelerators— 
Fast Load, Kwik-Load!, and 1541 Flash — and helps you 
choose the package that's right for your needs. (Turn to 
page 33.) 

* Once you've sped up your 1541 you can speed up 
your ability to acci it with Dos Plus. Dennis 
Muscatelli's C-64 utility puts a powerful tool kit at your 
fingertips. (Turn to page 39.) 

* Examining and modifying disk files is interesting 
and useful. Going through standard file processing rou- 
tines to do so is tedious. Mark Johansen's Disk Displ: 
and Update Utility (DSKDU to you) gives you direct a 
cess to any sector on a disk. (Turn to page 25.) 

* You'll never be able to bounce bullets off your disk 

drive. But Super Duper by Dave Barron (not Айоу/% 
Technical Editor, but a Mississippi-based programmer) 
will at least let you copy sequential or program files, n 
name files, and dupe ML programs without knowing 
starting and ending addres: 29) 
* If there's anything woi or that 
crolls horizontally, it's a disk directory that scrolls ver- 
tically— namely, any C-64 disk directory that contains 
25 or more entries. But Two-Column. Directory by 
Richard Lovett and Barry Archer will let you view 40 
file names at a glance. (Turn to page 30.) 

We figure that's about all the sprucing up your disk 
operations can handle in one month. As for the rest of 
the programs and features in this issu 

* The Commodore Font Editor by Adventure Interna- 
tional programmer Phillip Case will allow you to easily 
create your own personalized characters or character sets 
on the C-64. (Turn to page 82.) 

* Cal Overhulser's article/program on the Hardware 
Interrupt Wedge for the VIC 20 and C-64 will teach you 
to set up and utilize a “wedge” into either computer's in- 
terrupt handler and perform various actions in the back- 
ground of your main program. (Turn to page 52.) 
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* Ready for fun and games? So are we! Larry Mur- 
dock's Tile Time for the C-64 is similar to those sliding 
number puzzles you used to buy at the dime store — but 
with infinitely more possibilities and infinitely less wear 
on your thumbs. (Turn to page 81.) 

* Dont get the butterflies playing Raid for the С-64, 
by Larry Coats and Noel Nyman. More important: don't 
let the butterflies get you! They're out to do just that as 
you try to scoop up all the inhabitants of Heartland. (Turn 
to page 60.) 

* It's been four months since you took soldering iron 
and drill in hand to accompany Tom Benford, the original 
hardware hacker, on a computer-carving adventure. This 
month he shows you How го Install a Reset Switch on 
your VIC or 64, permitting you to clear screen and mem- 
ory without interrupting power to the rest of your compu- 
ter. (Turn to page 13.) 

* The thought of drilling into the side of his precious 
C-64 agonized Morton the K to such an extent that he 
decided to contribute a companion article to Tom's, de- 
а lternate ways of installing a reset, or “warm boot,” 
capacity. Morton's love for his computer is evident in the 
very title of How Many Ways Can I Reset Thee? Let Ме 
Count the Ways. (Turn to page 16.) 

If you don't know assembly/machine language, and if 
you missed our April issue, we recommend that you bor- 
row a copy and read the first installment of Mark An- 
drews' Commodore Roots. Then read the second install- 
ment, found in this issu the Numbers. There's no 
more painless introduction to assembly language pro- 
gramming to be found anywhere. Included this month 
is a program that will easily convert numbers from deci- 
mal to hexadecimal to binary. (Turn to page 47.) 

And while your brain is in a machine language mode, 
read this month's Rupert Report. Dale takes you on an 
assortment of Assembler Escapades, showing you how 
1o use an assembler to create an ML program, use a dis- 
assembler to view that program in memory, and convert 
the ML instructions into the DATA statements of a BASIC 
program. (Turn to page 55.) 

A passel of programs are likewise included in this 
month's edition of Creating Your Own Games on the VIC 
and 64, in which Orson Scott Card details the logistics 
of Moving Through Color Memory—and manipulating 
colors separately from characters in your original game 
programs. (Turn to page 18.) 
Do we envy you readers. As we write these words, 
it'll be several weeks before we can page through а сору 
of the May Ahoy! You can tear into one right now, What 
are you waiting for? —David Allikas 
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CARTRIDGE COPIER 

In an upcoming issue, Morton 
Kevelson will report on various 
products that let you put your C-64 
programs on cartridges. Among 
these will be the new CBUS cartridge 
backup system from R.J. Brachman 


/stem consists of two parts: 
CBUS-1, which lets you copy the 
contents of any C-64 cartridge onto 
diskette; and the CBUS-2 cartridge 
emulator, a cartridge containing 16K 
RAM which allows you to load the 
viously copied cartridge program. 
into the computer and com- 
pletely emulate the original. 

While makers of cartridge-based 
software are sure to denounce CBUS 
for its inevitable promotion of pira- 
cy, the system does in fact provide 
two important advantages for law- 
abiding users. Fir: eliminates the 
need to continuously swa ridges 
to change programs, sa and 
tear on the expansion port 
it provides a valuable de 
tool for those who want to cr 
tridge-based software by allo 
rapid testing and emulation of car- 
tridge-based programs without the 
need to continuously erase and repro- 
gram read-only memory chips 
(PROMS). 

Cost of CBUS | is $34.95, $ 
for deluxe version with 
programs on disk. CBUS 
$99.95 including disk. A combina- 
tion package, including all programs 
and hardware, 19.95, Advanced 
users should inquire about the tech- 
nical manual for the system. 


R.J. Brachman Associates, Inc., 
P.O. Box 1077, Havertown, PA 
19083 (phone: 215-622-5495; for or- 
ders 1-800-CBUS-C64). 


Alphacom Aero: 130 cps print speed, 2K data buffer, path-seeking logic. 
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ALPHACOM PRINTER 

The $249.95 Alphacom Aero of- 
fers 130 character per second print 
speed, 2K data buffer, and path-scek- 
ing logic. 6 X 8 characters are print- 
ed with true descenders in a 6 X 9 
dot matrix field. The 9-wire print 
head (using square needles for max- 
imum image quality) prints either 
480 or 960 dots per line in alphanu- 
meric (allowing 96 ASCII charac- 
ters) or bit-im mode. Users may 
create their own c ег sets, and 
mix type styles (double strike, en- 
'd, etc.) on the same line. Mod- 
and Centronics 


у com has cut 
the price of the intelligent printer car- 
tridge interfaces that link its Alpha 
pro 101 daisy wheel printer (sce Feb- 
ruary's Scuttlebutt) to various com- 
puters. Price of the particular inter- 
face required by Commodore users 
has dropped from $49.95 to $29.95. 


Alph; 2323 South Bas- 
com Avenue, Campbell, CA 95008 
(phone: 408-559-8000). 


WHEN THE RAIN COMES. 
Rainy Day Fun is the first in Thorn. 
EMI's new Computer Clubhouse 
ries, designed for children aged 5-9 
with the goal of providin, 
that entertain while teachin; 
ety of personal and social skills. 
The two-disk set ($39.95) features 
10 C-64 programs: Mask Maker 
(choose from 36 different face parts 
to create over 700 different masks 
that can be printed and worn), Paper 
Airplane (10 designs to print, with 
animated forward and backward 
rolls), Pin the Tail on the Donkey 
(find visible and invisible donkeys 
via musical clues), Connect-the-Dots 
(create 40 pictures by connecting 
dots freehand or on the computer), 
Party Invitation Maker (create your 
‘own or pick from three predefined 
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Keep the tykes out of your hair. 
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designs), Sliding Puzzles (alphabet, 
number, and picture puzzles solved 
by moving squares around a 4 X 4 
grid), Banner Maker (print banners 
up to 40 feet long), Fortune Teller 
(friendly sorcerer answers questions). 
Coloring Book (color onscreen or on 
à printout), and Mouse Maze (help. 
Mortimer the Mouse escape from the 
labyrinth). 

Thorn EMI Computer Software. 
3187C Airway Avenue, Costa М. 
CA 92626 (phone: 714-751-3778). 


ED SOFTWARE CATALOG 
AND NEWSLETTER 

DLM's 1985 catalog features de- 
scriptions and sample screens of over 
40 educational programs, many for 
the Commodore 64. 

DLM, One DLM Park, Allen, TX 
75002 (phone: in TX 800-442-4711; 
rest of US 800-527-4747). 

Educational Activities has an- 
nounced Software Source, a quarterly 
newsletter to be mailed free to all its 
customers on a quarterly basis. In- 
cluded are questions and answers, 
software and hardware tips, and in- 
formation on the company's latest 
products. 

Educational Activities, Inc., P.O. 
Box 392, Freeport, NY 11520 
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(phone: in NY, HI, and AK 516- 
223-4666; rest of US 800-645-3739). 


GREEN ACRES 

Designed to assist anyone thinking 
of becoming one, Real Estate Inves- 
tor will calculate mortgage payments 
for conventional, adjustable rate and 
balloon payments, mortgage amorti- 
zation of principal and interest, de- 
preciation (based on the 1981 Eco- 
nomic Recovery Act schedule), and 
projected cash flow and taxable in- 
come. For the C-64; $35.00. 

Jance Associates, Inc., P.O. Box 
„ PA 18046 (phone: 


: Melody Machine (play 
music while learning notes on the 
staff and keyboard), Sneak-a-Peek 
(match notes and note names), Copy 
Cat (reproduce notes and songs), and 
Mouse Maze (move the rodent 
through obstacles by playing the 
proper note). Included is a coloring 
book that works in conjunction with 
the programs. For the 64; $24.95. 

Waveform Corporation, 1912 Bo- 
nita Way, Berkeley, CA 94704 
(phone: 415-841-9866). 


PRINTOUT 

The latest book releases of inter- 
est to Commodore u: 

Commodore 64 Basics: А Self- 
Teaching Guide ($15.95) offers a 
comprehensive course in writing and 
programming in BASIC, while Pro- 
gramming Tips for the Commodore 
64 ($14.95) teaches the more sophis- 
icated skills needed to create graph- 
animation, music, and sound ef- 
5. John Wiley & Sons, Inc., 605 
Third Avenue, New York, NY 
10158 (phone: 212-850-6000). 

Home Applications and Games for 
the Commodore 64 features 31 pro- 
grams ranging from home finance to 
Beowulf vs. Grendel. $14.50 from 
Little, Brown and Company, 34 Bea- 
con St., Boston, MA 02106 (phone: 
617-227-0730). 

Keyboard Challenge with Commo- 
dore 64 ($12.95) combines literacy 


BASIC programming self-taught. 
READER SERVICE NO. 198 


training with specific subjects in 29 
games like Geography Invaders, 
Fraction Reaction, and Vocabulary 
War. Assembly Language Program- 
ming with the Commodore 64 
($14.95) teaches writing, debugging, 
and executing assembly language 
programs. Commodore 64 BASIC for 
Kids ($15.95) provides over 200 ex- 
ercises for elementary to junior high 
school students. All from Brady 
Communications Co., Inc., Bowie, 
MD 20715 (phone: 301-262-6300). 

Bowkers 1985 Complete Source- 
book of Personal Computing lists 
more than 750 personal computers, 
2500 peripherals, 1800 user groups, 
‚ 6300 books, and 
s. $19.95 from R.R. 
Bowker Company, 205 East 42nd 
St., New York, NY 10017 (phone: 
212-916-1600). 


TELECOM NEWS 

The Sixth Sense terminal program 
from Microtechnic Solutions can 
make decisions and perform actions 
based on user-programmed param- 
eters (such as time of day and exter- 
nal events), allowing it to do your 
telecommunicating while you're out. 
Other features are a 700 line virtual 
screen with bidirectional scrolling, 
standard screen for use with built-in 
editor, split-screen line input, and si- 
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Flight 
imulator II 


instrumentation VOR, ILS, ADF, and DME radió equipped в navigation facilities and. 
War I Ace aerial battle game = complete і manual and flight handbook. 


Corporation 
713 Edgebrook Drive 
Champaign IL 61820 

: 206995 
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Wafer Dri 
A New Technology 


Floppy disk 
performance for 
your Commodore" 
at audio 

cassette prices. 


Entrepo's QUICK DATA 
DRIVE" brings high speed 
mass storage to the Commo- 
dore*64™ and VIC20." De- 
signed as a replacement for 
data cassettes, the QUICK 
DATA DRIVE plugs into exist- 
ing cassette ports. You can 
now load a 24K program in 
about 20 seconds instead of. 
8 minutes for audio cas- 
settes and 1 minute for the 
Commodore Disk Drive. 


= Suggested retail price 
under $85 

= 20 times faster than audio 
cassette 

= Fully automatic opera- 
tion—needs no rewinding 

* Highly reliable 

= Can be used with a second 
drive or an audio cassette 

* Comes with file manage- 
ment system and utility 
program 

= Top selling software avail- 
able on Microwafer™ 
media 


$ єпігєро 


ENTREPO, INC. 

Lawrence Station Road 
Sunnyvale, California 94089 
(408) 734-3133 

Telex 176337 


Microwafer sa trademark of Entrepo, Ine. 
Commodore*64'" and VIC 20 
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multaneous downloading to screen, 
printer, and disk at 1200 baud. On 
disk for the 64; $89.95 (20% dis- 
count for registered owners of Smart 
ninal). 

Microtechnic Solutions, Inc., Р.О. 
Box 2940, New Haven, CT 06515 
(phone: 203-389-8383). 

The Instant Yellow Pages offers 
online business information from a 
database of 6 million listings. Charge 
is $1.00 per minute and 10€ per rec- 
ord printed, plus $15 per month sub- 
scription fee. 

Instant Yellow Page Service, 
American Business Lists, Inc. 5639 
South 86th Circle, Р.О. Box 27347, 
Omaha, NE 68127 (phone: 402- 
331-7169). 

Рес; free 24-hour da 
provides information on feeding, 
housing, and health care of animals 
from pooches to parakeets. Phone 
number is 303-223-1297. 

The Advocate, Р.О. Box 8896, Ft 
Collins, CO 80: 

CompuServe has replaced their 
Email service with EasyPlex, offer- 
ing a 50-name address book for each 
user, menu, prompt, and command 


modes, and automatic line 
numbering. 
Additionally, CompuServe has 


made the Academic American Ency- 
clopedia available at a subscription 
rate of $49.95 per year for unlimited 
searches (in addition to the normal 
t charges). 

ly, Compuserve has an- 
nounced that beginning in May they 
will sponsor The Online Computer 
Connection, a five-minute radio pro- 
hing 100 cros 
kets and allowing listeners to in- 
t with the program via their 
computers during regular connect 
times at no additional charge. 

CompuServe, 5000 Arlington 
Centre Blvd., Р.О. Box 20212, Co- 
lumbus, OH 43220 (phone: 614- 
457-8600). 

ECHO Systems has announced 
Echo Can а Toronto-based 
branch that will spare Canadian us- 
ers the cost of calling the US. A spe- 
cial rate is being offered to the first 
1000 subscribers. 

ECHO Systems, 4739 Alla Road, 
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GE's TXP-1000 prints in 16 dot matrix on rolled, fanfold, or cut sheet paper. 
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Marina del Ке: 
213-823-8415). 


CA 90292 (phone: 


BETTER CONNECTION 

The price of The Connection in- 
terface from с (see Printer In- 
terfacing, March '85 Ahoy!) has been 
lowered from $119.95 to $99.95. It's 
also been enhanced to configure to 
most parallel printers via software, 
and to include a programmable char- 
acter set which can be downloaded 
to create various type styles, as well 
as a universal screen dump for black 
and white and popular color printers. 

Tymac Controls Corporation, 127 
Main Street, Franklin, NJ 07416 
(phone: 201-827-4050) 


GE PERIPHERALS 

General Electric's announcement 
that they will produce peripherals for 
specific home computer systems (in- 
cluding Commodore) puts the com- 
petition among third party тапий 
turers in а new light. Because GE 
the first entrant in the Commodore 
market capable of swallowing all the 


GE 3-8200 modem is acoustic/modular. 
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other third party manufacturers put 
together, they have the wherewithal 
to drive prices down below other 
companies profit margins. The pric- 
es of the releases described here may 
not appear trendsetting — but wait un- 
til the other giants of the home elec- 
tronics field follow GE's lead into the 
Commodore market. Small, indepen- 
dent manufacturers of quality peri- 
pherals will continue to sell to the 
quality conscious; the me-too manu- 
facturers will cease to be. 

The model 3-8200 modem, oper- 
ating at 300 baud, includes both an 
acoustic coupler for hard-wired 
phones and a direct mode for use 
with modular jacks. Other features 
include automatically switchable an- 
swer/originate modes and battery op- 
eration. Price: $119.95. 

The TXP-1000 printer operates at 
25 or 50 characters per second, with 
full graphics capability and variable 
width print modes. The $299.95 unit 
hooks up to the C-64 via an $89.95 
interface. 

Why no Commodore-compatible 
disk drive? GE is waiting to perfect 
the one they're currently working on 
—which will read data files from all 
home computers. 

General Electric Company, Elec- 
tronics Park, Syracuse, NY 13221 
(phone: 315-456-2446). 


NEW GAME RELEASES 
Despite the witty title variation, 

Electronic Arts’ Racing Destruction 

Set is one of the two latest entries in 
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its Construction Set line, enabling the 
user to customize and combine a host 
of supplied elements into an original 
program. Provided are some of the 


world's most famous tracks (Monaco, 


Indianapolis, etc.), nine types of ve- 
hicles ranging from Lunar Excursion 
Modules to stock four differ- 
ent backgrounds, and variable sound 


alter gravity. Vehicles can be 
changed with regard to speed, tire 
type, amount of armor, and design. 
Ап isolated camera display i 
screen scrolling enables с; 
to view his car and its position on the 


track no matter where his opponent is. 


Mail Order Monsters lets players 
design their own beasties from a cat- 
alog of 12 body types, 20 enhance- 
ments (fangs, tentacles, etc.), 15 
weapons, and 6 defenses. Completed 
monsters can be sent to demolish one 
another in three different battle sci 
narios on three skill levels. You с; 
save your most revolting creations to 
disk for future customization and 
gameplay. 

Both for the C-64; $35.00 each. 

Electronic Arts, 2 Campus 
Drive, San Mateo, CA 94403 
(phone: 415-571-7171). 

By putting the entire track oi 
ser Gamestar's On-Track Racing 
eliminates the need to pause or re- 
start when one player gets too far 
ahead of the other (as in scrolling 
race games) or sacrifice drama by 


10 AHOY! 


lia.net 


splitting the screen. The competition 
takes place on 10 famous raceways. 
For the 64 and 128; $29.95. 

Gamestar, Inc., 1302 State Street, 
Santa Barbara, CA 93101 (phone: 
805-963-3487). 

The winning entry in Progressive 
Peripherals’ contest challenging us- 
ers to build levels from the Wizard 
construction set for a second game, 
the Wizard Expansion Set is a more 
demanding version than the original 
(required in order to play the Expan- 
sion Set). For the C-64; $29.95. 

Progressive Peripherals & 5ой- 
ware, 2186 South Holly, Suite #2, 
Denver, CO 80222 (phone: 303- 


759-5713). 
Ousted air controllers can 
wax nostalgic playing Kennedy Ap- 


proach, simulating the control tow- 
er situation at various American air- 
ports. Up to twenty aircraft can be 
radioing you at one time (utilizing 
; you must guide 
to a safe landing. For the 
С-64; $34.95. 

MicroProse Software, 120 Lake- 
front Drive, Hunt Valley, MD 21030 
(phone: 301-667-1151). 

Wo games previously announced 
by Tymac, now available for the first 
time, at $39.95 с; 

As Gandalf the Sorcerer, you use 
power bolts to defend your castle 
from the lizardmen who seek to steal 


your treasure and drag your appren- 
tices off to Lizard Lair. On disk or 
cassette for the 64, on cartridge or 
ette for the VIC. 

Flyer Fox utilizes 3D graphics and 
software-generated speech to put you 
in the cockpit of a jet fighter, defend- 
ing commercial airliners from mur- 
derous Migs. On disk or cassette for 
the C-64 


y Controls Corporation, 
Franklin, NJ 07416 (phone: 201- 
827-4050). 


4K RAM ROBOT 

Sure to be a riot at the school sci- 
ence fair, The Memocon Crawler is 
5'4" diameter robot that can be 
ieuvered with а seven-function 
controller or a С. -64 (via a special in- 
terface), The 4K RAM automaton 
can go forward, right, or left, pause, 
sound a buzzer, light an LED, or re- 
peat a program continuously. Robot 
and controller is $74.9: 
face (assembly required) is $3 

OWI Inc., 1160 Mahalo Рас 
Compton, CA 90220 (phone: 213- 
638-4732). 


T-64 

A column as densely packed with 
hard news uttlebutt needs some 
diversion, It's provided this month by 
Diversions Inc., makers of the Un- 
derware Ribbon, which allows you 


VIDEO BASIC-64 - ADD 50+ graphic and 
sound commands to your programs with this super 
development package. You can distribute free RUN 
TIME version without paying royaltie 

ISBNY 0-916439-26-7 


BASIC COMPILER 64 - compiles the 
complete BASIC language into either fast 6510 
machine language and/or compact speedcode. Get 
your programs into high gear and protect them by 
compiling 

ISBN/ 0-916439-17-8 


$59.95 


$39.95 


MASTER-64 - professional development 
package for serious applications. Indexed file 
system, full screen management, programmer's 
aid, BASIC extensions, 100 commands 
ISBN# 0-916439-21-6 $39.95 
PASCAL-64 - tull Pascal with extensions for 
graphics, sprites, file management, more. Compiles 
to 6510 machine code and can link to 
Assembler/Monitor routines 


ISBN/ 0-916439-10-0 $39.95 
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Break the BASIC 
lanquage barrier 


ADA TRAINING COURSE - teaches 
you the language of the future Comprehensive 
subset of the language, editor, syntax 
checker/compiler, assembler, disassembler. 120+ 
page guide 

ISBN/ 0-916439-15-1 $59.95 


FORTH-64 - 


е synthe: 


hics, com: 
ог, pro 


ISBN 0:916439-32-1 $39.95 
C LANGUAGE COMPILER - г (и! C 
language compiler. Conforms to the Kernighan 8 
Ritchie standard, but without bit fields. Package in 
cludes editor, compiler and linker 

ISBN/ 0-916439-28-3 $79.95 


ASSEMBLER MONITOR-64 - г 
macro assembler and extended monitor package 
Assembler supports floating point constants 
Monitor supports bank switching. quick trace. single 
step. more. 

ISBN# 0-916439-11-9 


$39.95 


XREF-64 - indispensible tool for BASIC pro- 
grammer cross-references all references to variable 
and line numbers. 

ISBN/ 0-916439-27-5 $17.95 


OTHER TITLES ALSO AVAIL- 
ABLE - WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 
Call today for the name and address of 
your nearest local dealer 


PHONE: (616) 241-5510 


For postage and handling include $4.00 
($8.00 foreign) per order. Money order and 
checks in U.S. dollars only. Mastercard, 
VISA and American Express accepted 
Michigan residents 
incl 4% sales tax. 


FREE PEEKS & POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 


You Can Count On 


Abacus 


x oy W Rapids. MI 49510 - Telex 709-101 - 
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НЕН Software 


Phone 616/241.5510, 
| http:/ 7 


| 
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to produce T-shirt iron-ons on plain 
computer paper. Software to draw 
and print the screen image is not in- 
cluded. Available for the Epson, 
nd Gemini dot matrix 
ach $19.95 ribbon will 
yield a minimum of 20 transfers. If 
you'd like to produce full color iron- 
ons, a set of five ColorPens for fill- 


Diversions Inc., 1550 Winding 
Way, Belmont, CA 94002 (phone: 
415-591-0660) 


DO-ALL DISK DRIVE 

A $399 dual disk drive soon to be 
released by World Disk Drive will 
include an IEEE bus, serial and par- 
allel printer interface ports, and a 
disk with printer dumps that can re- 
produce all Commodore characters. 

Unlike the MSD SD-2, whose se: 
cond drive exists primarily for mak- 
ing backups, these twin drives will 
be independent of each other and 
able to be addressed separately. The 
World drive will also boot all Elec- 


tronic Arts games, which the MSD 
does not. 
An additional $29 will buy a 


fast-loadin 
routines, 
wedge. 

World Disk Drive, 23501 Ridge 
Route Drive, Bldg. D, Laguna 
Hills, СА 92653 (phone: 
714-855-1761). 


OFF THE HOOK 

A postscript to last month's Ship 
10 Shore, wherein Cheryl Peterson 
reported on the plight of Tom Tcim- 
pidis, Los Angeles-based SYSOP. 


cartridge with copy 
IC 4.0, and a DOS 


NEWS 


facing persecution for telephone 
fraud over the appearance of an 
AT&T credit card number on his 
BBS: the city attorn ce has 
dropped the case due of suf- 
ficient evidence to prove that Mr. 
Tcimpidis knew the number had 
been posted 

It was stressed that the decision to 
drop the case did not reflect any un- 
willingness to prosecute future 
SYSOPs whose boards post illegal 
messages. 


RESET SWITCH 

If you don't care to try any of the 
methods suggested in this issue by 
Tom Benford and Morton Kevelson 
to Install a Reset Switch on your VIC 
or 64 (see page 13), you can take 
the easy way out and purchase 
Master Software's new Reset 
Master. 

The switch, which plugs into any 
serial port on your system, will reset 
your C-64 or VIC 20 without shut- 
ting off the power, and restore con- 

Continued on page 83 


Make Your Home Secure and Energywise 
... With Genesis Home Control Products 


At Genesis Computer we produce a complete line of home security and energy management products. They combine with 
your Commodore 64 to make your home safer and more energy efficient while increasing your personal convenience. 


The Genesis ViController allows you to control up to 256 lights and appliances throughout your home using standard BSR 
receiver modules. With the included software, you can create daily and weekly control schedules. 


Your system can be expanded by adding Genesis’ COMsense input device, Super 
Schedule Plus software, and available sensors. Commands can 
then be issued in response to on/off inputs such as the 
opening of a door or analog inputs such as a change in 

light level. By adding COMclock, a crystal 

Controlled clock/calendar, your system will 

have an accurate, battery 

backed-up time base. 

COMclock's Autoboot ROM 

acts as a failsafe restart for 

the system in the event of 

a power failure. 


Sold separately the ViController, 
COMsense and COMclock 

sell for $69.95 each and 

the Super Schedule Plus software sells for $19.95. All four products are available together in our HOME CONTROL 


«PACKAGE for only $199.95. 
Call 215-861-0850 to order direct or contact your local dealer. 


omputer Corp. P.0. Box 152 ellertown, РА 18055 
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"ЫШ | hey say that people gen- 
erally have 20-20 hind- 
sight, and this is true even 
of the design team at 

Commodore. The most faithful sup- 
porters of the Commodore 64 must 
admit that there are a few а in 
which their computer is lacking. One 
example is the absence of a reset, or 
“warm boot,” switch. On the Plus/4 
and C-16 computers, Commodore 
provides this switch as standard 
equipment, having learned a thing or 
two from the C-64 and VIC. What 
Tm presenting here is an inexpensive, 
simple way to add on one of these 
handy gizmos to your present Com- 
modore computer. Since we'll be 
hooking it up to the user port, the 
same instructions and connections 
apply to either the VIC 20 or C-64, 
ich have identical user ports. 

What does a reset switch do? It 

performs almost the same way the 
power (on-off) switch of your com- 
puter does, with a couple of major 
benefits. One of these is clearing the 
screen and memory while not inter- 
rupting power to the rest of the com- 
puter; it allows you to reinitialize the 
system without having to turn the 
C-64 off and then back on again. 
There are many, many uses for such 
a switch, among which are restart- 
ing а game or utility cartridge, or 
more practical applications such as 
regaining control of your computer 
without having to turn it off and then 
on again. The possible applications 
of a reset switch for specific pro- 
grams (both commercial and of your 
own device) are numerous; in fact, 
there are literally thousands of uses 
for this "warm start" (also called 
“warm boot”) capability, and your 
imagination is the only limit on what 
you'll use it for. 
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While this is a perfectly safe and 
simple modification, it will void your 
warranty, if still in effect. Also note 
that neither I пог Ahoy! can assume 
any responsibility for damage to your 
computer by performing this modi- 
fication on it. If you have any reser- 
tions about your soldering sapi- 
ence, it may be a good idea for you 
to give this article and your compu- 
ter to a friend or technician who can 
complete the project for you. 

Construction is fairly simple, with 
only a basic knowledge of soldering 
techniques required. The bill of ma- 
terials is equally minor, and the 
whole project should take well under 
one half hour to complete. Let me 
mention first that the switch we'll be 
using is a standard Radio Shack item 
that comes five to a package. You'll 
only need one switch for this project, 
so you may want to give the others 
to friends or members of your user's 
group. Or, you may want to keep the 
extras for possible use on future pro- 
jects well be covering: the choice is 
yours. Now, let's get our shopping 
and tool lists together! 


(Figure 1): 
age (5) Miniature Push But- 
witches—Momentary SPST 
. Normally Open (Radio 
Shack #275-1547)—$2.49 
Approximately 3 feet light single 
conductor wire (30-gauge AWG 
wire-wrap wire is ideal)—$.50 


Tools Needed (Figure 1): 
Medium-heat (30-50 watt) solder- 
ing iron 
Rosin-core electronics solder 
Wire strippers/pliers 
Phillips screwdriver 
Electric drill with 3$" bit 
Towel 


By Tom Benford 
Photos by Liz Benford 


Figure 4 


4. Tools and parts needed. ®. Removing 3 
case screws. 3. Disconnected wire harnes- 
ses (keyboard and LED). 4. Lifiing copper 
foil tape from shield. 
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Figure 8 
e EE 
5. Drilling hole for switch іп top cover of 
C-64. 6. Tinning the wire ends. 7. Solder- 
ing wires to the user port — pins #1 (ground) 
and #3 (reset) are the ones we're using. Sol- 
der as close to the inside of the circuit board 
as possible. 8. Soldering wire ends to switch 
terminals. 
—————O 
CONSTRUCTION 

Find a clean, well-lit area to work 
on, spread out the towel, and invert 
your C-64 on it (the towel will pre- 
vent you from marring or scratching 
the computer). Make sure that every- 
thing is disconnected from the C-64: 
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power, serial, monitor, cartridg. 
and user ports should all be empty. 
Remove the three Phillips-head 
screws that join the two case halves 
together, and put these screws some- 
where safe for the time being (fig- 
ure 2). Turn the computer right-side 
up and gently separate the two 
halves. You'll notice that there are 
wires connecting the top to the bot- 
tom half. These are the LED indica- 
tor at the lower right of the circuit 
board and the keyboard harness at the 
left side; both of these wires pack- 
ages use slide-on connectors. Pull 
gently on the connectors themselves 
to remove them from the circuit 
board (figure 3). You should now be 
le to fully remove the top half of 
the computer; do this and set it aside 
for the moment. 

Late model C-64s have a paper 
foil shield to cut down on TV and 
radio interference. If yours has this 
shield, lift the copper foil tape from 
it and peel it back (figure 4). Once 
this is done, you'll be able to fold the 
interference shield forward, thus ex- 
posing the heart and soul of the com- 
puter—the actual circuit board it- 
self 

To the upper left you'll see the con- 
tacts of the user port — we'll be mak- 
ing our solder connections to contacts 
#1 and #3 (see diagram #1, courtesy 
of the C-64 owner's manual). 

Plug in your soldering iron to get 
it up to working temperature, While 
the iron is heating up, we can pro- 
ceed to drilling the hole for the 
switch. 

Placement of the switch is largely 
a matter of choice, but I recommend 
putting it right next to the power in- 
dicator LED; it gives a more "pro- 
fessional” appearance, as well as 
keeping it out of harm's way. Using 
a %” bit, drill a hole through the top 
of the computer keyboard about X^ 
away from the LED (figure 5). Clean 
any remnants of drilled plastic from 
both the outside and inside areas of 
the keyboard. Remove the nut from 
the switch and give it a test-fit to 
make sure it fits in the hole easily 
(you may have to ream the hole 
slightly for a comfortable fit). 


Figure 11 


Figure 12 
Е E 
9. Completed connections to user port pins 
#1 & #3. 10. Completed connections to 
switch, with wiring tucked under shield. t. 


Just prior to closing: keyboard & LED har- 
nesses back in place, switch mounted on 
top cover, wiring tucked away. 12. Com- 
pleted installation. Looks factory-perfect! 
д 

Your soldering iron should be up 
to working temperature now, Cut 
your hookup wire into two 16" 
lengths, and strip about М” of insu- 
lation from both ends of both ріес- 
ев. When this is done, "tin" all four 
wire ends with a small amount of sol- 
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HOW TO AVOID 
BECOMING A 
DINOSAUR. 


If dinosaurs had kept up with their rapidly changing % -4 
world, you might have a pet bronto today. (It's 
probably just as well they didn't, since they 


wouldn't fit into a small imported car anyway.) 

The point is, if you don't want to get left 
behind today, you need a computer with „р 
the latest software and accessories. 2” 
No фе) about it. 4 

һе only question is, "where 

do I buy it?" 

Ah! We thought you'd never 
ask. Computer Warehouse, of 
course. Nice guys, great 
prices. Give us a call today. 
We'll get your shipment 


out bronto— 
er, pronto. 
MONITORS MODEMS 
Commodore 1702 $209.95 Westridge Automodem 569.95 
Gorilla (green) $ 7900 MPP 1084 $79.95 
Gorilla (amber) $ 89.00 Total Telecommunication $69.95 
Modem 300 by 
PRINTERS 
Commodore 1526/802 $309.00 Cree ы 
Commodore 
Panasoni 1090 00 PRINTER INTERFACES, 
Батю юх 4900 Cardco G+ $69.95 
Sep ony ТУЕ MEE 
heme 00 AXIOM Interface. $79.95 
ELITE 5 CD (Daisy Wheel) SOFTWARE 
Daci contact “ео Flight Simulator ll $36.95 
АХЮМ AT 550 325900 Super Base 6 Ej 
KOMT $25800 Paper Clip w/spell) | 57995 
Star 5010 $399.00 Multiplan by Microsoft $59.95 
Star ЗАЮ 329900 Word Pro 3 Plus $39.95 
тА 00 Koala Touch Tablet $69.95 
Okidata 82,83,84,92,93 CALL Tax Advantage $69.95 
erede $199,090 Write Now (Cardco) 539.95 
и {29950 Masterton Disk Game іу 


DISK DRIVES Е 
Commodore 1541 $199.00 DISKETTES’ 


Rana 1000 5199.00 Computer Warehouse 

Indus GT $299.00 55/94 $14.95 
MSD Single Drive. $299.00 Бының Ee " 2 

ера T 

MSD Dual Drive 549900 Elephants! Ше. 
ACCESSORIES Maxell MD2D $24.95 
We carry a full line of covers, SKC 55/54 $13.95 
ribbons, storage cases, surge SKC ss/dd $16.95 
suppressors and cables. *Prices per box of 10 


We carry a М ine of Commodore Hardware and Software 


COMPUTER 
М/АРЕНЕОЅЕ 


(in FL) 305-274-3680 ; 1-800-372-0214 
7222 SW. 117th Avenue, Miami, FL 33183 


Аза 3* lor shipping and handing charges. (S3 minimum), Ad prices төс 3% cash 
discunt Cred card orders should add 3% Prices subject 1o change without notice. 
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der. This is done by melting solder 
onto the wire ends; not too much, 
though — just enough to coat the wire 
ends with solder (figure 6). 

Refer again to the diagram of the 
user port. With the 
ing you, the #1 contact is the one on 
the extreme right, and #3 is the third 
one from the right. Solder one end 
of cach wire to each of these con- 
tacts, but make sure that you solder 
them as close to the circuit board as 
possible, The reason for th 


the contacts of the port when usi 
a modem or other peripheral. Since 
you've tinned the wire ends, only a 
small amount of hea 
essury to complete the 
(figure 7). 

When these connections are com- 
pleted, take the remaining two wire 
ends and solder each of them to op- 
posite terminals on the switch (fig- 
ure 8)—the order doesn't matter on 
these. The completed connections 
should look like those in figures 9 
and 10. 
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64 or VIC user port, plus descriptions 
of pinouts for input/output devices (see 
C-64 User's Guide, p. 142). 


Assuming everything's gone 
smoothly so far, you should now be 
ready for reassembly. Insert the 
switch into the hole in the top cov- 
er, secure it with the nut, and tight- 
en it up. You won't need the wash- 
er, so discard it now. 

Place the top half over the bottom 
half, fold the interference shield back 
to cover the board, reaffix the cop- 
per foil tape 19 the shield, and plug 
in the two harness connectors. These 
connectors are “keyed” so they'll only 
go on the right way. Don't force them 
on! When the connectors are posi- 
tioned over the pins correctly, they 
should slide right on with very little 
effort (figure 11). When you've got 
them in place, close the two halves 
of the computer. 

Now invert the computer, replace 
the three screws, and tighten them 
to finish the job, That's it! 

The finished job should look like 
figure 12. The switch looks like it 
grew there, doesn't it? Plug the pow- 
er cable bac às well as the other 
cables, and you're ready to roll. C1 
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"ve always been reluctant to 
perform surgery where it 
shows on a finished commer- 
cial product. This probably 
stems from an initial conservatism 
against violating the sanctity of the 
manufacturer's warranty, or perhaps 
a misguided urge to preserve the re- 
sale value for as long as possible. 
Whatever the reason, I surmise that 
many users share this reluctance with 
me. It thus seems fitting to present 
a number of ways by which you can 
add a reset button to the Commodore 
64 or the VIC 20 without opening the 
computer. 

If you carefully examine the pin- 
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out drawings on pages 142 and 143 
of the manual supplied with the 
Commodore 64 (pages 150 to 152 
for the VIC 20) you will notice that 
the reset line is available at the user 
port, the serial port, and the cartridge 
port. In fact, the corresponding pins 
of each of these ports are electrical- 
ly identical due to a direct connec- 
tion inside the computer. А reset 
switch may be connected between 
ground and the proper pin at any one 
of these ports. 


THE USER PORT 
In the user port, as we have 
pointed out, the reset line is on pin 


three. If you simply connect a push- 
button switch between this and 
ground on pin one the job will be 
complete. Figure 1 illustrates how to 
use a 24 pin edge card connector 
with the pins on .156 inch centers 
Properly done, the pin spacing allows 
the switch to be self mounting. To- 
tal cost is about $2.50 for switch and 
connector, You may want to cover 
the exposed pins with some insulat- 
ing tape to prevent electrical shorts 
due to contact with foreign objects. 
The proper pins can be easily loca- 
ted by simply orienting the connec- 
tor as shown in the manual. The pin 
identification should be molded in the 


connector housing, making the job 
even simpler. Remember, all of the 
pinouts in the Commodore manuals 
are as viewed from looking at the 
back of the computer. 


THE SERIAL PORT 

The serial port has the reset line 
on pin six with ground on pin two. 
If you do not have a disk drive ог 
printer you can actually mount a 
switch on a six pin DIN connector 
and install it at the serial port. Pub- 
lic Domain, Inc. (5025 S. Rangeline 
Rd., West Milton, ОН 45383— 
phone 513-698-5638) offers a com- 
pleted assembly for just $5. If you 
have a disk drive, the па port on 
the 1541 can be used just as easily. 
If you also have a printer, there is 
still a way to add a reset switch to 
this port, although the method is 
somewhat crude. It will require some 
minor surgery of the disk drive con- 
necting cable. Carefully slit the in- 
sulating cover and remove some of 
the copper braid which shields the in- 
ner conducters. In the case of the ca- 
bles supplied by Commodore, the 
wires you want are colored purple 
and blue. Other manufacturer's ca- 
bles may have different color code 
schemes. Simply connect the termin- 
als of the switch directly across the 
wires, Be careful to maintain contin- 
uity of the existing circuit. Figure 2 
shows a partially completed job. T. 
finish things off, just wrap the ех- 
posed connections with insulating 
tape. 


THE EXPANSION PORT 
The cartridge port offers a unique 
opportunity for adding a reset but- 
ton. Just find a suitable cartridge, 
which you intend to leave in place 
all the time, and install the switch. 
The Epyx Fast Load cartridge (re- 
viewed in this issue) is a particular- 
ly good choice. If you do a soft re- 
set by entering SYS 64738, the Fa: 
Load cartridge is disconnected. If 
you hit the reset button, the cartridge 
is reconnected. Figures 3 and 4 show 
the installation. Of course, you will 
have to carve up the cartridge some- 
what, but cartridges are much cheap- 


er than computers. Some cartridges 
(such as Fast Load) are held togeth- 
er by a screw hidden under the la- 
bel. If you feel around the top it will 
be easy to locate. 


PUSHING THE BUTTON 

Interestingly enough, when you 
push the button everything grinds to 
a halt. It is when you let go that 
things take off. All the major chips 
in the C-64, with the exception of the 
VIC-II chip, are reinitialized. When 
the button is released, the micropro- 
cessor starts executing the code 
whose starting address is stored in 
65532 and 65533 (SFFFC and 
SFFFD). (For a more detailed dis- 
cussion refer to the Exposé of the VIC 
& 64 Operating System in the Jan- 
vary '85 Ahoy!) Just remember that 
all serial bus peripherals will also be 
reset by the reset button. It would be 
а good idea to remove any disks from 
the drives before initiating a hard- 
ware reset. 


ON SEMANTICS 

The term “Warm Boot” generally 
refers to a partial reset of a system 
without turning the machine off and 
then on. The term “Cold Boot” re- 
fers to the startup procedure the com- 
puter follows immediately after pow- 
er on. The reset button discussed in 
these articles actually has the effect 
of making the computer go through 
the initial power on sequence. Thus, 
some may argue that the switch be 
called a "Cold Boot" switch, and the 
term "Warm Boot" reserved for the 
SYS mentioned above. Others go so 
far as to argue that even the SYS 
command should be referred to as a 
“Cold Boot." We prefer to avoid the 
whole issue by simply referring to 
the reset switch as a "Hardware Re- 
set" and the SYS command as a 
"Software Reset," leaving all temper- 
ature considerations to the budding 
meteorologists in our audience. 

Alert readers may have noticed 
that the word reset in the Commo- 
dore manuals is printed with a line 
above it. This is simply the logical 
negation symbol. Purists may read 
this as “not reset.” It means that the 


Figure 1 


Figure 4 
4. User port reset: note position of contacts 
1 & 3 at left end of top row. 2. Reset switch 
installed on serial port cable (top) & user 
port connector (bottom). 3. Internal 
connection of switch in Fast Load 
cartridge. 4. Completed assembly. 


——M — 
reset action takes place when this line 
is a logical 0, or in our case by pull- 
ing the five volts normally on this 
line to ground or 0 volts. 

As with all construction projects 
presented in Ahoy!, the user assumes 
all responsibility for any catastro- 
phies which may result from self-in- 
flicted tinkering. О 


AHOY! 17 


tali. 


CBIZATING'TCUR OWN GAMES 
ON THE VIC ANDD6-E 


http://www.old 


ecently I was at a party where a lot of 

/ /) science fiction and fantasy writers and 

readers were gathered. I have no shame 

— | ook at such events as therapy for my 

(© ego and I milk them for everything 
they're worth. 

I was told that one of the guests was Walter Meyers, 
a professor at North Carolina State who happens to be 
on the panel that gives out the Campbell Memorial 
Award for the best science fiction novel of the year. 

Now, we writers, sophisticated and worldly as we are, 
all pretend that awards mean nothing to us. But all the 
time we're saying that, we're swallowing hard to keep 
from drooling at the thought of getting one. 

So I was prepared to discuss, modestly, the signifi- 
cance of my contribution to science fiction and fantasy 
literature. 

Instead, he handed me a disk, “Гуе been reading your 
column in Ahoy!,” he said. “I wondered if you'd look 
at these games.” He mentioned that he had created some 
really dazzling sound and graphics. And when I got the 
disk home, darned if he hadn't. 

The disk contained several games, but they were all 
linked with a menu program. The menu began with some 
messages in nice large characters. Then we were given 
a musical interlude in Digits Music Hall. A curtain op- 
ened to reveal a beautiful pipe organ. A penguin walked 
on, sat up to the organ, and played some Bach. The pen- 
guin's fingers moved properly on the keyboard; the mu- 
sic was flawless. The curtain went down, and then came 
back up to reveal the message: "And now, the menu." 

Whereupon the letter M walked out to the middle of 
the screen and beckoned to the other letters. E slithered 
оп, № was a bit more dainty, and U positively wafted. 
Then, underneath it, five games were offered: 

A find-the-letter-on-the-keyboard game, in which nest- 
ling birds squawk until their letter is struck. 

An abstract GO-like board game, in which players take 
turns moving tiles and flipping colors. 

А duel with swords, in which you select the moves 
to make against opponents with varying levels of skill 

А memory building (or, in my case, ego-destroying) 
game in which you try to remember how many Moes, 
Larrys, and Curlys you saw while a single match was lit. 

And the piece de resistance, a truly magnificent flags- 
of-the-nations game. 

And my job was to play them like an idiot. 


GET HELP FROM AN IDIOT SAVANT 


You see, once you ve programmed your game and it's 
doing everything you want it to, it's time to have it tested 


James Regan 


by Orson Scott Сага 
АНОУ! 19 


//www.oldgamesitalia.net/ ttp://www.oldgamesitalia.net. 


What you get if you cross 
aCommodore 64 with a Ferrari. 


ү ои get the incredible And, you get the only disk drive — LED display that keeps you in 
C Indus GT disk drive. that comes with free control of your Commodore to 
You get brains. You get beauty. Word processing, Spreadsheet the air-piston operated dust 
But, that's not all you get Database manager. Plus, a carry- cover that protects your disks 

You get a disk drive that can ing case that doubles as an 80 and drive. 
handle 100% of Commodore's disk storage fi So, you know what you really 
software. Up to 400% faster. Mc ixury get if you cross a 
You get the disk drive with the | From the sleek lines of its sound. Commodore 64 
best service record around. With proofed chassis to the respon: with a Ferrari? 
aone year warranty on partsand — sive Acculouch"" controls at the You get the 
labor to prove it Indus CommandPost From the 
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by somebody else. Somebody who doesn't know any- 
thing about the game. Preferably, somebody who will 
quickly do everything that you didn't think anybody 
would be dumb enough to try. 

We're talking about genuine creative stupidity. 

For instance, in the middle of Gor a March, 1 decided 
I had better go back to the preschool game, which was 
better suited to my mental abilities. I tried to quit pre- 
maturely. Apparently Walter Meyers hadn't counted оп 
anybody giving up in frustration. There was no orderly 
exit—at least, when I pressed Q the game didn't Quit, 
and none of the function keys stopped it, either. Nor 
did the RESTORE key —but it did wreck the display. 

What kind of idiot would press the RESTORE key 
during the game? 

Now, Walter Meyers didn't make a mistake, / did. 
But if I had plunked down forty bucks for the gam 
1 wouldn't be rational about something like this. 1 
wouldn't say, "Card, you idiot, why did you press the 
RESTORE key?” I'd say, "What kind of game is this 
that the only way you can quit early is to turn off the 
machine?" 

And I'm not only stupid, I'm lazy. I didn't want to have 
to find the numbers 1 through 5 on the keyboard to 
choose my guess for the nation whose flag was displayed. 
I wanted to be able to move a cursor up and down and 
have the computer highlight the choice I'd made. Then 
Td never have to look down at the keyboard at all. 

There were times | wanted to do things the game didn't 
allow. Times I didn't want to do things the game re- 
quired. Гат reporting all those things to Walter Meyers. 

Will he act on them all? Maybe. And maybe he'll look 
at me with pity and wonder how a guy this dumb ever 
got to write a column for a national computer mag: 


Hear me, O game designers. Treasure your stupid 
friend: 


If you have no stupid friends, find some. Be 
the idiots who do everything wrong when they're 
testing your game are the biggest help you'll ever get. 
By the time you're through making it so they can do 
all the things they wanted to—and can't do any of the 
things they wish they hadn't—you'll have а game that 
is perfectly polished. 
You could never make that many mistakes on your 
own. You just can't do it without the help of us dolts. 


SELECTING OPTIONS 

Most games use Option Selection at some time dur- 
ing the game. It can be as simple as the One-Player/Two- 
Player option at the beginning, which is never used aj 
until the game is over: or it can be the heart of the game. 

For instance, Walter Meyers’ game Flags depended 
entirely on option selection. Each time a new flag was 
displayed, the names of five nations appeared under the 
Пар, numbered 1 to 5. To select one, you just press a 
number. 

Things got more complex with Flashing Swords. Here, 
there were many options. like Thrust. Parry, Rest. Feint, 
and so forth. Sometimes a modified set of options ap: 
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peared, adding Lunge und leaving off some of the others. 
Now to choose an option you press the appropriate key: 
L for Lunge, T for Thrust, and so on. 

The same thing cropped up in an early version of a 
trivia game sent to me by Jan Iverson. Possible answers 
were numbered. 

Now, this single-keypress method of option selection 
is a vast improvement over using INPUT statements to 
read whole words. For instance, an early game for the 
Atari was States and Capitols. Instead of offering a 
menu, you had to type in the name of the state. Now, 
for a touch typist who is a fanatic about correct spell- 
ing —like me—that posed no problem. But when my then- 
four-year-old son played the game, he hared typing in 
all those lett 

What if he spelled Tennessee with only one N? He 
knew the name of the state—he just didn't know how 
the game wasn't really a geography teach- 
spelling exam. 
yet, the programmer tried to “simplify” things: 
by using only the first five letters of the state's or с 
itol's name in the recognition loop. This meant that the 
word Washiplvxzyut was as “correct” as Washington. 
It also meant that if you wrote North Carolina when the 
state was North Dakota, the program thought you were 
correct. Great edw program! 


tic ! 
So the multiple choice technique, where you are shown 
several options and allowed to choose by pressing a sin- 


gle key, is а great improvement over requiring the play- 
er to type whole words. 

But it still has drawbacks. In numbered menus, where 
you choose option 4 by pressing the 4 key, there is no 
necessary relationship between the answer and what you 
press. If the answer you want is number 4, you have 
to look on the screen to see what number it is, then look 
down to the keyboard to find the number, and then look 
back to the screen to see how you did. And don't kid 
yourself that touch typists don't have to do this, There 
are an awful lot of us hundred-word-per-minute typists 
who still stop and look for numbers and symbols on the 
top row. That's terra incognita up there. 

The first-letter option solves part of the problem — T 
for Thrust means you only have to think of the word 
Thrust and you know what to press. But it makes things. 
even worse for hunt-and-peck typists. We touch typists 
know without thinking where T is on the keyboard — 
but a lot of your players won't know. 

There is an easier way. 

Just put your menu of choices on the screen. Not num- 
bered, but vn position on the screen. АП 
the opti letters of the same color—ex- 
cept one. 
current sel 

Then you merely move the joystick up or down. The 
former current selection returns to the regular color, and 
the one just above or below it is changed to the high- 
light color. 

You can keep moving from choice to choice, until you 
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reach the one you want. Then you press the button. You 
have made your choice. (It works the same way with 
the keyboard. You use the f5 and f7 keys to move up 
and down, and the space bar to select.) 

Why is this better? Because you want to have as few. 
barriers as possible between the data and the decision 
and between the decision and the action. In this case, 
players don't have to figure out which number or letter 
represents their choice. Their choice is highlighted on 
the screen. And to change from one choice to another, 
they don't have to find a particular key on the keyboard. 
They only have to remember up, down, and action. 

These games were good games even with the relatively 
clumsy control system. But that’s what you do when your 
game is finally working —you fine tune it, change it here, 
change it there, to make it simpler to play, and yet more 
fun, more fascinating, more satisfying. 


HIGHLIGHTING WITH PRINT 

Now that I've described how highlighting with a menu 
of оро! the best way to handle multiple choice 
only fair that I show you how it's done. 

The screen display is simple. You just put the choices 
in a column. Let's say we're playing апа 
you have to negotiate with the minister of 
aringia. Your king 
ringia in an alliance 
game, you are given bits of information to help your 
preparation —those appear at the bottom of the screen. 
Your instructions from the king appear at the top of the 
screen. And in the middle are your options: 

Give gifts 

Make threats 

Offer concessions 

Maneuver 

Stall 

Leave 
Each choice leads to a sub-menu, which appears when 
made your choice. For instance, if you choose 
ions, the sub-menu lets you choose 
ion to make: 

Trivial concessions 

Lower tariffs 

Free trade 

Loans 

Economic aid 

Passive military aid 

Active defensive aid 

Active offen aid 
Once you have selected from the sub-menu, the oppo- 
nent (or computer) responds, and you prepare your next 
move. After a certain amount of time, the computer judg- 
es how well you accomplished your objective, and the 
next round begins. 

There are several ways to program the highlighting 
of options. You could keep every option in a string a 
ray, and PRINT the highlighted option cach time in a 
different color. For instance, let's that the six ele- 
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ments in the initial menu are held in the array OPS(n). 
There are two colors, С1$ and C25. CIS is white, and 
С25 is light blue—the normal color for letters оп the 
Screen. 

To put the initial menu on the screen, you would get 
the cursor to the beginning of the option menu and use: 


FOR I-0 TO 5:PRINT C2$0P$(I):NEXT 


Then, to highlight option 0, the first o 
get the cursor to the right row and us 


ion, you would 


PRINT С1$0Р$(0) 


Now option 0 appears in white. 

When the player moved the joystick down to the next 
TOW, you would first get the cursor to the position of 
the old choice, option 0, and 


PRINT С2$0Р$(0) 


That sets the first option back to the regular background 
color. 

Then, get the cursor to the position of the new choice, 
option 1, and 


PRINT C1$0P$(1) 


Now the second option, option 1, ар in white. 

This system would work just fine, except that for mul- 
tiple menus you'd have to set up two-element arrays, with 
one element to choose the menu and another to choose 
the option, 

But there's a simpler (though not always faster) way, 
based on the way the Commodore 64 and VIC 20 han- 
dle foreground color. 


HIGHLIGHTING WITH COLOR MEMORY 

As you know, the screen is mapped in "screen mem- 
ory,” a portion of memory in which cach by 
sponds with one position on the screen. The bytes of 
memory contain the code number for the particular сһаг- 
acter to be displayed in that particular position on the 
screen. (These are not ASCII codes— they are the screen 
display codes.) 

The first address in screen memory contains the code 
for the character that will appear in the upper left-hand 
corner of the screen. The second address in screen mem- 
ory contains the code for the character that will appear 
just to the right of it. The 22nd address (on the VIC) 
or 40th address (on the 64) contain the code for the right- 
most character on the top line. The next address has the 
code for the leftmost character on the next down. 
And. of course, the last address in screen memory con- 
tains the code for the character in the lower right-hand 
corner of the screen. 

When you use PRINT statements, BASIC takes the 

Continued on page 79 
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CLOSE 


QUESTRON: A role-playing game so spell-binding, it suspends reality and conjures up 
ап enchanted world whose only hope against the forces of evil Is you. 


GEMSTONE WARRIOR: A lightning-fast action strategy game that will leave you breathless 
with excitement as it takes you through the labyrinths of the Netherworld on a noble quest. 


Open them up and step through the gateway to your fantasies come true. 
At your local computer/software or game store today. 


QUESTRON is available on 48K diskette for APFLE*II 
with Applesoft ROM, Apple II+, Пе, and Ис ($49.95). 
On 40K diskette for ATARI* home computers ($49.95), 
On 64K diskette for COMMODORE 647 ($39.95). 


GEMSTONE WARRIOR" is available on ABK diskette 
for APPLE*II with Applesof ROM, Apple 11+, He, 

and lic ($54. 

Also on 64K diskette for COMMODORE 64" ($34.95), 


©1985 by STRATEGIC SIMULATIONS, INC. ^i rights reserved. 


If there are no convenient stores near you, VISA & M/C holders To order by тай, send your check to: STRATEGIC SIMULATIONS INC, 
t can order direct by calling 800-227-1617, ext. 335 (toll free). In 885 Stierlin Road. Bldg, A-200, Mountain View, CA 94043. (California 
California, 800-772-3545, ext. 335. Please specify computer format residents, add 7% sales tax.) All our games carry a "14-day satisfaction 

and add $2.00 for shipping and handling. or your money back” guarantee. 
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D 1 
ADVENTURE GAME 
TUTORIALS 


Disk | Disk И Disk 111 
TEXT ADVENTURES MEGAVENTURES GRAPHIC ADVENTURES 
ZORK I ULTIMA И GOTHMOGS LAIR 
ZORK II ULTIMA III MASK OF THE SUN 
ZORK III ULTIMA IV DEATH IN THE CARIBBEAN 
ENCHANTER RETURN OF HERACLES BLADE OF BLACKPOOLE 
SORCEROR QUESTRON CRITICAL MASS 
STARCROSS Only $9.99! GRUDS IN SPACE 
SUSPENDED ULYSSES AND THE GOLDEN FLEECE 
PLANETFALL WIZARD AND THE PRINCESS 
DEADLINE ASYLUM 
WITNESS THE INSTITUTE 
Only $9.99! Only $9.99! 


Have you ever played an Adventure Game where you just plain got stuck and couldn't get any further? 
Well, here's the answer — Phoenix Red's Adventure Game Tutorials. They can be used as hints or they 
will tell you exactly what to do to get ош of all those sticky situations. These Tutorials are written for 
your computer (A Commodore 64) not someone elses, so they work. 


We pay postage and handling. "We put out money where our 
A must-have for all adventures. Software is, not our copy 
Order yours today! protection.” 

Send check or Money Order to: — Phoenix red 


Phoenix Red Software 
1620 Bay Area Blvd. Suite 703 
Houston, Texas 77058 


Call 713-280-8113 for more info. 
Reader Service No. 217 
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play ап 


апа VIC 20% 
*5K Memory Expansion Required 
By Mark Johansen 


ot long ago I had some hardware problems with 

my 1541 disk drive and, before I realized what 

was causing my difficulties, the directory on a 

rather valuable floppy was destroyed. I took 
the drive to the shop and it was duly repaired, but in 
the meantime a disk was rendered useless. There is prob- 
ably a corollary to Murphy's Law that states that when 
such a thing happens, the floppy disk destroyed will al- 
be the only one you own that you neglected to back 
up, for that is exactly what happened to me. But I knew 
that most of the data on the floppy should be intact: it 
was only the directory and perhaps one or two files that 
were damaged. If only 1 could repair the directory, the 
effort that went into writing several good programs could 
be saved. 

The problems involved in such an effort could be div- 
ided into two parts: one, I had to have a way to directly 
modify the directory; and two, I had to know what 1 
should modily it to be. 

To solve the first problem I wrote a disk display and 
update utility, which I call DSKDU, and which I shall 
endeavor to describe here. It allows the user to look at 
what is on any given sector on the disk and modify it 
if he so chooses, while bypassing all the standard file 
processing routines. It requires a C-64 or a VIC 20 with 
about 5K expansion and, of course, a 1541 disk dri 

The second problem made much easier than it 
might have been by the fact that Commodore provides 
fairly good documentation in the /54/ Disk Drive Us- 
егу Guide on how they laid out their disks. 

The results of this effort have proved to be useful in 
situations beyond the ori | problem. For example. 
T have occasionally managed to create files with illegal 
such as 7,7 which cannot be deleted with the 

cratch command, but which can be killed off with 
DSKDU. On the other hand, it makes it rather easy to 
files that I have accidentally scratched (pro- 
vided I get to them before the system has reused the disk 
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how 
stored, and I have even used it a 


space). It has allowed me to look at exactly 
ous types of files are 
few times to create data files that would have been in- 
convenient to produce with BASIC. 


FLOPPY FORMAT 

If you hope to accomplish anything useful by directly 
ying disk data, you must have some idea of what 
ults should look like. Commodore conveniently 
provides details of their disk storage layouts in the /54/ 
Disk Drive User's Guide, pages 65-68. I see no need to 
repeat all the details here, but the manual is extremely 
terse and some explanation may help you to understand 
what the tables are all about. 

The disk is divided into 35 tracks, numbered from Í 
on the outside to 35 nearest the center. Each track is 
divided into sectors, which are numbered from 0 to 20, 
but not all tracks have the full 21 sectors—the number 
of sectors per track decreases as one nears the center 
of the disk. (The table on the top of page 65 in your 
User's Guide gives the actual number of sectors on each 
track.) Note that for some mysterious reason Commo- 
dore chose to number tracks beginning with one but sec- 
lors beginning with zero. 

The system maintains a directory on each floppy їп 
which it records what files аге on this floppy along with 
in information about them. The directory always 
begins certain information about them. The directory al- 
ways begins on track 18, sector 1. Each file has one en- 
try in this directory. The first entry begins on the third 
byte of the block and each entry is 30 bytes long with 
two byte gaps between them. 

The first byte of each directory entry contains a code 
indicating whether this file is sequential, program, rel- 
ative, or "user". If this byte is "00" then the entry is not 
currently in use: it is either beyond the largest number 
of files you have ever had on the floppy or the file В 
been deleted. In this case any other information in the 
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entry is irrelevant. 

The most obvious piece of data is the file name. This 
15 easy to see because it is stored as normal ASCII text. 
The primary function of the directory is to relate this 
name to the actual data on the disk, which it does by 
also keeping the and sector numbers of the first 
block of the fil 

In this first block, the first two bytes contain the track 
and sector numbers of the second block. The remaining 
254 bytes contain the beginning of the actual data mak- 
ing up the file. The first two bytes of the second block 
contain the track and sector numbers of the third block, 
which contains the track and sector numbers of the fourth 
block, and so on, forming а kind of chain. The “pointer” 
in the last block has a track number of zero. (Remem- 
ber that "real" track numbers begin with one.) Instead 
of a sector number, the second byte will contain the num- 
ber of bytes in this block which actually form part of 
the file. This allows the system to determine exactly 
where the file ends; without such an indication all files 
would have to come in exact multiple of 254 bytes. 

The directory itself d together just like 
The first two bytes of its first block contain the track 
and sector numbers of its second block, which points 
to its third block, and so on. It wouldn't do if we had 
to look in the directory to find the directory, so instead 
it simply always begins at track 18 sector 1. By the 
this location was presumably chosen because it is in the 
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exact center of the disk, and as the directory will nor- 
mally be referenced more than any other data this should 
minimize movement of the read/write heads and there- 
fore of disk delays. 

This system of c 


ing works fine for sequential (and 
program) files, but relative files are intended to be 
cessed randomly; that is, we do not want to have to read 
through all preceding records in order to find the one 
record desired. To enable us to do this, Commodore em- 
ploys what they call "side sectors." The directory entry 
for a relative file contains a track-sector pointer to the 
first side sector in addition to the pointer for the first 
data block. The first two bytes of this first side sector 
block point to the second side sector, which contains a 
pointer to the third, and so on in the now-familiar pat- 
tern. Each side sector contains pointers to up to 120 data 
blocks. Thus, when a program asks for a record, the 
system will first determine which block it is in by com- 
paring the record length to the standard 254 data-bytes 
per block. If it turned out to be in, зау. block 67, the 
system would then find the 67th pointer in the first side 
sector block and retrieve that block directly, without hav- 
ing to follow the chain all the way from the first data 
block. Similarly, if the record turned out to be in block 
700, the system would find the 100th pointer in the sixth 
side sector block. Now, the whole purpose here is to 
avoid having to follow the pointers to find the desired 
block, so we really don't want to have to follow point- 
ers to get to the needed side sector. Instead, each side 
sector contains pointers to all of the other side sectors. 
The system will always keep the last one used in memory. 
n if it doesn't need the same one again at least 
1 know where the one it needs is to be found. Each 
limited to a maximum of six side sectors, but as 
each can point to 120 data blocks, this allows for a total 
of 720 blocks, more than are actually on a disk. 

The format of user files is completely determined by 
the programmer, so they do not necessarily follow any 
of the above rules. If you wish to use them, you're on 
your own, 


USING DSKDU 

The operation of the program is intended to be straight- 
forward. One general point should be made before I de- 
scribe the individual functions. All numbers are displayed 
in hexadecimal, and all input must also be in hex. While 
this may seem inconvenient at times, most notably when 
entering track and sector numbers, the disk data itself 
usually most logically presented in hex, and as you 
often get the next track/sector from the data in the cur- 
rent one, it seemed reasonable and consistent to make 
all input and output be in hex. 

Once it is LOADed and RUN, the program ask for 
the first track and sector to be displayed. (Remember 
these numbers must be entered in hex.) The program 
will read the disk and display the first sixty-four bytes 
of that block on the screen. At the extreme left of each 
line will be the offset into the block, followed by the 
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An open letter to 
the readers of Ahoy Magazine 
Vincent Kurek 
President: The Ennon Corporation 


My purpose in writing is to ask 
you to join me in shaping the 
tuture of the new and most unusual 
field in computer technology today 
Artificial Intelligence. 

This incredible power and 
spectacular creative potential are 
available to you, for your computer 
right now. However, there is an 
alarming possibility that such 
amazing technology which you 
have every right to, may not һе 
available to you other that through 
this offer. 

This is unfortunate but somewhat 
understandable due to the way 
technology is created. You see, only 
the business oriented corporation 
can finance research. It therefore is 
in a position to dictate immediate 
research goals, These goals are 
increasing profits through more 
efficient production, While valid, 
they are merely creative and do 
absolutely nothing to foster 
exploration in new applications. The 
result: technology is never used 10 
its fullest potential. But what's worst 
‘of all is that these competitve 
corporations have absolutely no 
desire to share technology with 
each other, let alone with you. So. 
they don't, As a result, the 
infinitesimal amount of technology 
that finally trickles down to you is: 


A. So expensive you are pro 
hibited from procurring it 

6, Shametully inferior to the 
real thing 


remember..you can buy high-tech 
consumer goods, but never the 
technology that creates it 

This same situation confronts you 
in the new Artificial Intelligence 
field, but with a difference: 
There is no true Artificial 
Intelligence for the home computer 
user! The few programs claiming to 
be Artificial Intelligence are really 
simulators. They are not the real 
thing, Possessing a mere token of 
the power and versatility, simulators 
are clearly not worth their 
expensive price 

1 have tried repeatedly to 
convince my colleagues that it is in 
their best interest to release genuine 
Artificial Intelligence to the gene 
public. The refinement, modifica 
and adaptation as individuals create 
new applications would improve 
Artificial Intelligence tremendously, 
This would benefit everyone in the 
long run 


1 have met with little success. 
Apparently, it seems that immediate 
corporate profit is more important 
than sharing technology with the 
public. Therefore, the Ennon 
Corporation stands alone in offering 
superior Artificial Intelligence: 
programming directly to the home 
Computer enthusiast 

Announcing AN-83: 

The “Thinking” Program 
Believe me when 1 say AN-83 is 
the real thing. It is a true "thinking 

и receives an initial 
base" from а data file 
id when AN-B3 is started. Using 
inductive and deductive logical 
analysis, this amazing program 
deduces everything trom that data 
and adds it to its memory 
Conversing with you, AN-B3 adds 
and combines with tacts already 
known, It generates new 
conclusions not explicitly contained 
in its original knowledge base—just 
like your own thinking process! The 
result: it knows considerably more 
than the specific facts given to it 
А№.83 can also think about 
anything. It is virtually unlimi 
its application, Think of your 
possibilities. The potential is 
limitless, In the right hands, AN-83 
would revolutionize the adventure. 
strategy and other smart game- 
playing programs to say nothing of 
classic arcade games. On the other 
hand, AN-83 could be one of the 
most powerful business analysts 
available to the home computer 


FREE SOFTWARE 


In addition, you will be receiving 
free, Eliza—the most amazing 
Conversational A.l. program to date. 
Run this for your fnends and jaws 
will drop with amazement. Eliza's 
responses are so human, it's 
uncanny, An entertaining program, 
Eliza will answer once and for all 
the question: What can your 
computer do? 

How to Learn 
Artificial Intelligence 

You can be creative. Experiment 
and modify to fit your personal use 
because AN-83 and Eliza both. 
possess source code in basic, the 
most popular easy to use language 
for the micro. Their extensive, easy 
to understand commands walk you 
through the source code 


d in 


step by step. It's surprisingly simple, 
Even the beginner can understand 
the "How and Why of А.” 

А Fantastic Savings 

The real profit 10 Ennon 
Corporation will be your 
participation in the future of 
Artificial Intelligence. Therefore, 1 
am pleased to say nobody will miss 
this chance because they could not 
afford it, AN-83 is priced to cove 
just a fraction of its research and 
developmental costs. 

The "Thinking" Program AN-83 is 
just $21.57. What's more, the 
astounding Eliza is yours absolutely 

T guess it's obvious that | want 
you to participate in the future of 
Artificial Intelligence. Forgive my 
excitement and enthusiasm but | 
just know you are going to be very 
happy and impressed that such 
things could be done with your 
computer, You just won't believe it 
Please take this opportunity now. 
Simply fill out your coupon below 
and mail today, Don’t miss out. It's 
Such a wonderlul future of 
discovery and excitement that 
awaits you 


With very best of wishes. 


нее hiruk 


Vincent Kurek 


se send me the 

nking'" Program АМ.83 
ior only $21.57, 

In addition, 1 will receive 
absolutely FREE Eliza—the 
most impressive 
conversational Artificial 
Intelligence program to date. 


Available in disk only 

For use with the Commodore 64. 
Miel... 

Address = 

сау - = 
State Zip Code - 


THE ENNON CORPORATION 
1817 W. Call St., Suite B-8 
Tallahassee, FL 32304 


Canadian orders must be in U.S. dollars. 
We export to other countries, 
Commodore is a registered trademark. 


—ее.е.....м.м.м.м.м.м.мемымыемммм"м."—"—_ < 
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values of the data bytes in hex, and then their represen- 
tations as ASCII characters. Any byte which is not ASCIT 
for a letter, digit, or one of a few special characters will 
instead be displayed as a period. 

Due to the limitations of the VI тееп size, the 
program can only display 64 bytes of each 256 byte sec- 
tor at one time. To get the next 64 bytes you must press 
the f3 key. If you wish to go back to the preceding 64 
bytes you must hit the fl key. If you hit (3 while the 
screen is displaying the last ‘page’ of the block you will 
shown the first page, and if you hit f1 while the screen 
is displaying the first page you will be shown the last page 

When you are finished looking at a given sector, you 
may instruct the program to show you another sector 


5 and proceed as above. If you press 
the f4 key instead the program will dispense with ask- 
ing you for a track and sector and will display the next 
block in the file. 

If you wish to modify a sector, you may use the cur- 
sor control keys to move to the hex digit of th. 
wish to change, then press any valid hex digit key (0 
to 9 or A to F). The ASCII on the right will also be 
changed to reflect the new value. You may change any 
number of bytes in a sector and freely flip pages with 
the fI and f3 while doing so. When you have the sector 
looking the way you want it, press f8 to actually update 
the disk. Until you do this your changes are only kept 
in RAM, so if you make a mistake and want to get back 
to what was in the sector before, you need only press 
17 and reread the same sector (or you could go on to 
some other sector and forget the whole thing). 

When you are through monkeying around with your 
floppy. press [2 to exit the program. Note: Don't exit 
by pressing RUN/STOP as this will leave the disk сһап- 
nels open and terrible things may result. 

If you press any key which the program cannot inter- 
pret, it will help screen telling what the valid keys 
аге and what they do. If you forget which function key 
does what, simply hit anything invalid, such as the 
turn key or a question mark. and you will be shown this 
help screen. 


PROGRAMMING NOTES 

A few comments may be in order on some of the less 
comprehensible portions of this program. 

The first requirement in writing it was to be able to 
get data off the disk by track and sector and then put 
it back after it was modified. This could have been dif- 
ficult to do had not Commodore conveniently provided 
the U1 and U2 disk commands. The U1 command caus- 
es the drive to read a block specified by a track and 
tor number and load it into a buffer in the drive unit; 
U2 takes data from the buffer and writes it onto the disk. 
The only remaining problem was transferring data be- 
tween the buffer and the computer itself. The normal 
way to read data is with INPUT# or GET#. INPUT# 
was ruled out because it makes too many assumptions 
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about what the data will look like. It drops leading blanks, 
expects to see a carriage return to terminate the input 
stream, and assumes each variable will be terminated 
by a comma or colon. None of this could be expected 
to be true for an arbitrarily chosen block on the disk, 
especially for those containing directory information or 
programs. Thus СЕТУ seemed the logical choice, and 
indeed that was what I used in my first version of the 
program. Unfortunately, this ran extremely slowly. Writ- 
ing with PRINT#, while not as bad, was also unaccept- 
low. Therefore, I decided to code the read and 
e language. I have entered the 
ting with the corresponding as- 
sembler mnemonics as REMarks beside them as an aid 
to comprehension. Each routine transfers data from the 
buffer directly into or out of the integer array 0%. Lines 
1130 and 3130 are used to get the address of this array 
into locations 828-829 where it can be accessed by the 
ML routines. 

Displaying the block is rather simple. Line 2150 prints 
the hex representations of bytes, four per line, while line 
2160 prints the ASCII values. Some of these cannot be 
printed without messing up the display, most notably the 
color codes and cursor controls, and so are converted 
to periods. 

Control of the cursor for modification is a bit unus- 
ual. Line 2220 computes which byte of the sector we're 
on from page, line, and column. It also computes an ad- 
justed column number (C1) to allow for the space after 
every two hex digits on the display. Line 2225 sets up 
and calls the kernal plot routine. Line 2230 turns on the 
blinking cursor, and 2250 shuts it off n after 
getting a character and then puts back whatever was in 
that position before (so we don't leave inverse video 
blocks scattered about the screen). 

Whenever a byte is modified, the new value is com- 
puted in lines 2430-2450 by simply running the hex rep- 
entation through the input routine. This is admitted- 
bit clumsy, but it was short and easy to write and 
ntly fast. 


FINAL COMMENTS 
Beginning users are cautioned against trying to mod- 
ify the disl n they are not sure exactly what 
th ly with regard to the directory. 
A good idea might be to practice on a ‘junk disk’ with 
a few files tossed on it, to see exactly what happens. 
Another caution to bear in mind is this: if you do any- 
thing to change which sectors are “in use,” be sure to 
run the verify (V command) to update the Block Allo- 
ion Ma a table which the system keeps on 
ck 18, sector 0, in which it records which blocks are 
lable.) While it is possible to 
alter the BAM yourself, I definitely recommend against 
it. Its format is rather obtruse, making it casy to err, 
and any error can result in data being overwritten— Veri- 
fy is casier and safer. O 
SEE PROGRAM LISTING ON PAGE 105 
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A Sequential, P 
Language File 


ram, and Machine 
ier for the 64 


By Dave Barron 


he Super Duper file copier utility will allow 
disk users to copy sequential or program files 
easily from one disk to another (or onto the 
ame disk). It also allow you to rename 
the file. One nice feature is that you can also copy ma- 
chine language programs without having to know end- 
ing and starting addresses, thus making it easy to copy 
ML programs. 
Super Duper demonstrates the use of what I like to 
describe as hybrid programs. These are programs I enjoy 
writing because I can take advantage of the easy to use 
BASIC language and combine it with the speed and/ or 
necessity of using machine depending upon the appli- 
cation. Further, by using kernal routines 1 can create 
short effective programs while letting the already built- 
in ML routines do much of the work. 

A brief description of the BASIC program listing fol- 
lows, Also included on this page is a disassembly of the 
actual ML code that is POKEd in by the BASIC pro- 
gram, for those that wish to follow the ML logic, with 


ЕТТІ ТЕТІГІ) 
3586 20 Có РР JSR SFFCO 
3540 20 EA FF JSR РТА 


3592 AC 3C (0 101 $0330 
3505 91 FO STA (SFB),Y 
1) 


3597 C8 
3598 Bc 3c 03 STY 30390 


Пой X rey vith file #3 
iMP to OIKIN kernal routine 
ҮР to GETIN kernal routine and put 


ipst character gotten into seaor 
iineresent T reg (the cownter) 
{tore the counter into counter вевогу 


3m oe — cm IA 
3603 00 08 ВАЕ eID 
Зв PAPC INC SFC 
30g м С) LOK SFC 
WA Mor СРТ НР 
3611 Fo Ma Б) $021 
31345900 ША 990 
3615 PO BA BEQ 8005 
36020 СЕ Р JSR FRCC JW to CLICKS kernel rotine and clear 1/0 
3620 60 яз ис 
3621 A203 LOL IVO Повб X reg with logical file #3 
3623.20 СО FF JSR $FFC9 МР to CHEOUT kernal routine and open channel 
Tor output 
3626 AC 3C 03 LOY УС 11044 Т reg with counter 
3629 М FB — ММ (SEB),T iload А reg with first character from 
22 
3631 Ch FD cm sro compare Y reg to what's in pointer 
location 
3633 0) 06 BNE $0839 сүзі branch to 09 
3635 A6 Ei 
3637 АЕ СТЕ n 
3630 wj 10 ВЕД $0849 — iif it's equal 
1 (8 d Hincreseat Y re 
3642 BC 3c 03 SY MOC закоте Y ri 
3 20 02 FF Биз: оле to ОВО a Tostine and output 
эыв оз) — Cr mn 
369) 00 Eó БИЕ $824 
Ек sic 
Sisi AC 2A ое OP Е 
3657 26 07 FF 


brief comments. O 
Line #5 Description 

10- 30 Clear the sercen and POKE in the ML code from the data 
igh 280. The numbers POKEd. 
pinters used for keeping t 
of where we are in memory later on and initializing а coun- 

ter location, 
40- 80 Print onscreen menu. 
90-110 Get user's choice, convert his string response to a numeric 
value, and jump to appropriate line to handle choice. 

120-150 Allow user to input file name. 
160-180 Open disk file and jump to МІ. routine beginning at 3584, 
which reads file into computer's memory, 
Sets where end of file just read in exists, reset memory 
allocation, and reinitialize counter. 
200-210 Get user's new filename and allow user to swap disks. 
220-230 Open disk file to write file to and jump to ML. routine at 
3621 to write file to disk from computer's memory, 
Tells user copy is complete and goes back to sce if he wants 
1o copy any more files 
240-280 The data statements with the actual ML code. 
290 — End program. 


SEE PROGRAM LISTING ON PAGE 107 
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| *DATABASES & UTILITIES 

| *FOREIGN LANGUAGES 
*ADVENTURE GAMES 

| *ARCADE GAMES 

| ТАМА | 

| *EDUCATIONAL SOFTWARE 


*CHILDREN'S PROGRAMS 
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COLUMN 
DIRECTORY 


ave you ever listed a 


Неа 
р contain fewer than 40 files, 
so much of the time you'll be able to see the full direc- 
tory in one shot.) 


The program also allows you to load or erase files 
by putting the cursor on the file name of your choice 
and pressing just one or two keys. 

In addition to working as a stand-alone program, 

Column Directory can be pared down ИЕ 
for use within your own 
we will describe omits the load and erase features in or- 
der to make the length of the code manageable. The re- 
sulting routine will provide a two-column directory from 
within your program without erasing your program in 
the process. 

In order to display dual rows of directory information, 


The Cm fl sereen can't show two 
file names side by side and still include the 
puc 


and number of 
Column Directory pd program type as one let- 
ter (P for Program, and R for Rela- 
rade e ais tee of the time, the size 
is not crucial anyway. 

After listing the first 40 file names (or fewer, if that's 


all the disk contains), the program beeps, displays a rec- 
tangular yellow cursor, and shows a command line at 
the bottom of the screen. This line reminds you that f1 


FOR 
THE C-64 


BY RICHARD LOVETT 
AND BARRY ARCHER 


will continue the listing, f3 will start the listing over 
again, 15 loads a program, and f7 erases one. 

To load or erase, use the cursor control keys to put 
the cursor on top of the file name of your choice, Тио- 
Column Directory is set up to load any program file that 
uses the LOAD “filename”,8 syntax. If you press f7 to 
erase, the command line asks you to confirm your in- 
tent before it scratches the file. And, if you accidental- 
ly put the cursor on a blank line before pressing f5 or 
f7, the program ends. 

Assu there are more than 40 files on the disk, 
a press of fl causes Two-Column Directory to erase the 
lefthand column and show the next 20 file names; if still 
more remain, another press of fl erases the righthand 
column and shows an additional 20. This procedure con- 
tinues until the full directory has been displayed. 

To trim things down to a subroutine, omit 
lines 70, 140-160, 200, 210, 250, and 260-580. Then 
make these additions or substitutions: 


“25 COL=1 

*140 IF ВҮ$="" OR BY$=CHR$(34) THEN BY$=C 
HR$(32) 

*165 PRINT BY$;: NEXT 

*205 IF COL=2 THEN PRINT HO$+"[DOWN]":GOT 
0 110 

нн "[DOWN][12" "][RVSON] PRESS А 
"БҮ" 

*211 GET J$: IF J$="" THEN 211 

*212 PRINT HO$+" [DOWN ] [DOWN ]" ; 

*225 PRINT SP$;SP$;HO$; "DOWN ]": 


You will also need to add either a RETURN or GOTO 
line following line 255 in order to send control back to. 
your main program. O 

SEE PROGRAM LISTING ON PAGE 103 
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at TUSSEY COMPUTER PRODUCTS" . . 


WE KNOW WHAT YOU WANT! 


WE VALUE YOUR BUSINESS. IN ORDER TO EARN IT, WE ARE GOING TO GIVE YOU THE THINGS YOU WANT MOST FROM A MAIL ORDER COMPUTER STORE. 

1) Low Prices! We try to have the lowest prices around I youdolindalowerpnce, 3) Straight talk - We will give you accurate information as to our stocking condition 
please give us а chance to beat i 

| 2) Fast, dependable service - Our shipping department works hard to get your 4) Personnel who care - The people at TCP sincerely want you to be happy with 

| ` orders out quickly, usually within one business day. the way your order ıs handled. We all know ош jobs depend on having а happy 


ORDERS ONLY PLEASE: 800-468-9044 es INFORMATION & PA ORDERS: 814-234-2236 
PHONE LINES OPEN 10-8 MON-FRI, 10-5 SAT 


THE PANASONIC KXP 1091 PRINTER Cr commodore; 
Nei 


uty t e eh af a swich NEW PRICES! 
Commodore 64 is $147.00* 


$27300 
Panasonic KXP 1090 519800 


SG 10. NLO Dot Matra from Star сай 


NEW PRINTER FROM STAR! 


m NCC BUY A BUNDLE— 
: SAVE A BUNDLE 
э : теліген 


Oder one of these popular packages о! products by number tor supe 


"WORD PROCESSORS. " „МОВО PROCESSOR 64 and SPELLPRO 64 


1541 EXPRESS and the FAST CABLE 


CONSULTANT and PAPERCLIP W/SPELLPACK 


MIRAGE DATABASE /ADVANCEO REPORT GENERATOR and 
MIRAGE PROFESSIONAL WORD PROCESSOR 


mass 
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TUSSEY COMPUTER PRODUCTS 


* (formerly Tussey Mountain Software) 
BOX 1006 
"DEALER INQUIRIES INVITED" SITE ROHERE PAS: 
Other product lines available! Call for prices. 
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WELCOME, to the family of INNOVATIVE ORGANIZERS. These ATTRAC- 
TIVE power organizer stands, made of ABS PLASTICS, U.L. RATED, provide an 
opportunity for a more PROFESSIONAL looking computer installation, both at 
HOME and in the WORK PLACE. 

There is AMPLE room under the organizer to place all the computer 
accessories: POWER SUPPLY, MODEM, GAME CARTRIDGES, MEMORY 
EXPANSION, and MUCH MORE. 

Now, let's examine how these organizers work. There are 3 CRT-Models, 

CRT-1 holds a Monitor or T. V. Set and a VIC 20 or 64. All wires & cartridges fit 
neatly ünder the organizer. 

CRT-2 same as CRT-1, but also has: ONE-STEP MASTER SWITCH (permits 4 
pieces of hardware to be turned on and off from one switch, plus circuit protection, 
incoming power fused with 6AMP Fuse). 

CRT-3 same as CRT-2, but also has: SURGE & SPIKE PROTECTION built in. 

P-D-1: HOLDS 1525 PRINTER & 1541 DISK DRIVE. 
All wires & cartridges fit neatly under the organizer. 

Ask about our Power Lock Switch & Power Portable 
Computer Fan & 2 Outlet Surge & Spike Protection. 


\к Common nt an e of Commoners қаты. LT.D. 


Р.О. Box 108. Markleville, IN 46056 
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CRT-1 $17.98 
CRT-2 $29.97 
CRT-3 $37.97 
P-D-1 $19.48 


Optional Accessories 


SS-1 Surge & Spike 
Suppressor 
$29.95 


CF-1 Computer Fan 
$29.95 


Plus Shipping 


CALL TOLL FREE 
1-800-233-3645 Ext. 15 
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Disk 


Spinners 


Last month we examined the Indus GT and Commander И drives, 1541 
Physical Exam, and On Track Indicator. This month we conclude with 
Kwik-Load!, 1541 Flash, and Fast Load. 


PART И 


KWIK-LOAD! 


Datamost Inc 


20660 Nordhoff Stree 
Chatsworth, CA 91311 
18-709-1202 

19.95 


Phone 


Price: 


icing the emphasis on fast 
disk operation, the Kwik-Load! name 
neglects 10 mention the additional 
features of this low-cost yet power- 
ful disk utility, Written by Mark 
Riley, author of Paint Magic, the 
Kwik-Load! utility disk contains two 
programs. The first speeds up the 
LOAD time of the 1541 with the 
Commodore 64 by a factor of five. 
The second is a collection of disk 
utilities which simplifies and speeds 
up the most common disk file main- 
tenance operations. 

The Kwik-Load! utility is a short 
machine language routine which 
loads into the $C000 block in the 
Commodore 64. It is linked into the 
C-64 operating system by changing 
the LOAD vector at 5330-5331 to 
point at itself, thus diverting all sub- 
sequent LOADs away from the usual 
Kernal routines. Although a three to 
one speed benefit is touted by the 
program's purveyors, the actual 
benefit is a combined function of the 
type of disk activity, program length, 
and number of files being accessed. 
"Typical speed improvements hovered 
around the five to one mark. For ex- 
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ample, Paper Clip, our perennial fa- 
vorite for long LOADS, clocked іп 
at less than 15 seconds, down from 
over a minute and a quarter on the 
first try. Note that Kwik-Load! only 
works when loading programs. It has 
no effect on SAVE times. 

As with all RAM based speedup 
utilities, Kwik-Load! will perform 
best with BASIC programs. Most 
autoboot commercial software will 
disconnet the program during the 
boot process. A second version of 
Kwik-Load!, supplied on the disk, 
LOADS into the top of free BASIC 
RAM. In the process, it reduces the 
amount of available memory for 
BASIC programs by one kilobyte. In 
exchange, Commodore's DOS 
wedge can be LOADed in the usual 
fashion. 


KWIK-COPY 

Kwik-Copy, the second part of this 
package, is a comprehensive disk 
utility program. The highlight of the 
package is a high speed disk copy 
routine which will copy an entire disk 
in 4.5 minutes and three passes with 
just a single disk drive. If two drives 
are used, the process takes a mere 
3 minutes 40 seconds (of course the 
need to swap disks back and forth is 
also eliminated). These times were 
obtained with the verify option 
turned off. Turning verify on will 
slow things down a bit, but not very 


Replacements and 
Enhancements for 
the 1541 Disk Drive 


By Morton Kevebson 
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much. The routine aborts on encoun- 
tering a bad sector, so do not wait 
for those disks to start going bad Бе- 
fore backing up. 

Kwik-Copy automatically accounts 
for a second drive. If you have a 
hardware device nine on one drive, 
turn them both on and boot the pro- 
gram. If both drives are a device 
eight, turn one on and boot up. When 
done, turn on the second drive. 


AHOY! 
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Kwik-Load! will automatically sense. 
the presence of the additional drive 
and perform a soft change of the de- 
vice number. 

Other utilities included are an easy 
to use sector editor with a rather пісе 
two part hex and ASCII display, а 
high speed file copy utility, and а 
BAM directed copy routine. A drive. 
speed checking routine is included as 
well. The speed test is completely 
ive as it does not write to the disk 
е when in operation. 

The file copy routine has а very 
handy feature which the manual fails 
to document properly. When the rou- 
tine prompts for a file name, enter 
the asterisk (*) character as a default, 
The program wil 
play each file name and ask if you 
wish to copy it. 


CONCLUSION 

Kwik-Load! is the first of a series 
of competitively priced ($19.95) 
Kwik-Ware! software to be released 
by Datamost. All of these programs 
will incorporate the same high speed 
disk routines, It is a package well 
worth consideration by the budget 
conscious. О 


1541 FLASH 
Skyles Electric Work 


231 E. South Whisman Road 


Mountain View, CA 9 1 


Phone: 415-965-1735 
Price: $89 95 


The Skyles Electric Works 1541 
Flash consists of two eight kilobyte 
ROMs with associated hardware and 
a disk drive to computer connecting 
cable, The Flash is actually a re- 
placement for the C-64 Kernel and 
half of the 1541 DOS. In operation, 
the Flash provides approximately a 
three to one speed improvement for 
all disk operations. A mini DOS 
wedge and some C-64 program edit- 
ing support are included as well. 


HARDWARE AND 
INSTALLATION 

The 1541 Flash consists of sever- 
al components. In addition to the two 
ROMs mentioned above, there is а 
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pair of printed circuit adapter boards, 
а cable assembly, and a combination 
connector/switchboard/user port ex- 
tension assembly. 

Installation of the Flash is not for 
everyone. At best it will require dis- 
assembly of both the Commodore 64 
and the 1541 disk drive. At worst, 
considerable adaptive surgery of the 
C-64 circuit board will have to be 
performed. 

On the C-64 side you will have to 
remove the Kernal ROM and replace 


Flash hardware components (see text). 


Flash installed in 1541 disk drive. 
EES TEE Е 


it with an adapter board which allows 
for the simultaneous installation of 
two ROM chips, This will present lit- 
tle difficulty if your C-64 has its Ker- 
nal ROM in a socket. Many of the 
more recent editions of the C-64 have 
the chips permanently soldered into 
place. Extraction, in this case, is a 
tricky procedure involving the simul- 
taneous unsoldering of a chip with 
24 leads. This has to be done with- 
ош damaging either the circuit board 
or the original Kernal ROM. If your 
C-64 has a soldered-in Kernal and 
your dealer is not able to perform the 
necessary microsurgery (a likely oc- 
сштепсе), Skyles will do the service 
for $28.50. Given round trip trans- 
portation for the computer, this 
would probably be a three week min- 
imum proposition. If you happen to 
be in northern California with your. 
C-64, you may call for an appoint- 
ment for an on the spot replacement. 

А special adapter board replaces 
the original ROM chip. This consists 
of the replacement ROM, a second 
socket to allow reinstallation of the 
original ROM, and a pair of wires 
which go to a second adapter board 
which plugs into the user port. 

Тһе second board serves several 
purposes. It includes a small switch 
which chooses between the two 
ROMs now installed in the C-64. It 
provides a convenient termination 
point for the extra cable which goes 
to the 1541 disk drive, It connects 
up to two of the lines on the CIA port 
and it extends the user port itself for 
use by other accessories. 

As a result, the user port contacts 
are fully exposed to possible electri- 
cal contact with other objects. An in- 
sulated protective cover should have 
been provided with the kit. Also, un- 
like the original C-64 contacts, the 
extension board is not gold plated. 

In the 1541, one of the operating 
stem КОМ» has to be pried from 
its socket and replaced. Also, one of 
the 40 pin VIA chip: anked, a pin 
is bent so it points away from the 
body of the chip, and the chip is rein- 
stalled. A pair of micro chips on the 
supplied cable assembly are con- 
nected to the VIA chip. Routing of 
the cable completes the installation. 


We felt that an adapter board with 
a permanent connection would have 
done away with the need for the mi- 
crochips or any bending of chip 
leads. For our test installation, we 
rigged a 40 pin socket to eliminate 
the lead bending step. 


OPERATION 

Bryce Nesbitt is a name with 
which owners of the Flash will be- 
come intimately familiar. The C-64's 
turn on greeting message is aug- 
mented to remind you of Bryce's 
handiwork whenever you power up. 


User RAM is unaffected by the Flash. 


‘The usual 38911 bytes free appears. 
The switch on the user port adapter 
allows you to completely restore the 
original configuration of the C-64 by 
electrically switching between the or- 
iginal ROM and the Flash ROM. 
This will allow use of the computer 
with an unmodified disk drive or 
with any user port accessories which 
may require all of the CIA lines. The 
hardware change in the 1541 is ir- 
reversible. A DOS command has 
been added to provide a soft reset of 
the disk drive to permit operation 
with the unmodified C-64. 

In operation, we found the Flash 
to give an approximately three to one 
speed improvement for all disk drive 
operations. This included file oper- 
ations as well as program loads. The 
actual speed benefit varied with the 
particular sequence of operations. 
For example, Easy Script went from 
62 to 30 seconds, Paper Clip from 
78 to 23 seconds, and Standing 
Stones by Electronic Arts from 139 
to 80 seconds. Programs which per- 
form complex operations on multiple 
levels, typically databases, will also 
benefit from the much faster head 
movement which accompanies the 
Flash in the 1541. This high speed 
head movement remains in effect 
even when the Flash is deactivated. 


COMPATIBILITY 
Compatibility with commercial 
software is quite good. АП the stan- 
dard Commodore DOS commands 
are recognized. Most copy protected 
software worked without any prob- 
lems, although some programs 
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would load only if the Flash was 
turned off. We did come across some 
samples which would not work at all 
with the Flash-equipped disk drive. 
An arrangement for the disk drive 
similar to the C-64, where the ori- 
ginal ROM can be switched back in, 
would have been beneficial. 


SYSTEM 
ENHANCEMENTS 

The Flash includes a tiny DOS 
wedge which simplifies issuing disk 
commands and reading the error 
channel. The commercial at (@) 
symbol replaces the OPEN 15,8,15: 
РКІМТИІ5, sequence when followed 
by any standard DOS command. The 
character alone reads the error chan- 
nel. The disk directory can be dis- 
played to the screen without affect- 
ing the program in memory. 

Тһе Commodore full screen edi- 
tor is enhanced with several new fea- 
tures. These include rapid cursor 
movement to the bottom of the 
screen, a sixteen character tab, linc 
delete, partial screen clear, and a 
program LISTing pause. 

Several DOS commands have been 
added as well. These deal with the 
block read and write operations and 
are intended for programmers who 
wish to directly utilize the high speed 
Flash routines. 


CONCLUSIONS 

The 1541 Flash does make work- 
ing with the 1541 disk drive far more 
comfortable. The waiting time for 
long files to LOAD, which used to 
be an everlasting tedium, has been 
reduced to a tolerable bore. Shorter 
LOADSs which merely involved an 
annoying delay respond with a wel- 
come snappiness. The fairly complex 
installation will deter many users 
from the purchase of a Flash. We do 
suggest you check your C-64 for a 
socketed Kernal ROM before mak- 
ing a final decision. The manual does 
include a detailed installation section, 
with reasonably clear photographs, 
which should prove adequate for 
anyone with some familiarity with 
the hardware. 

Overall, the Flash was a pleasure 
10 work with. It was not without 


some reluctance that we removed it 
from our system after the thirty day 
evaluation period. Г) 


FAST LOAD 
Ерух 
1043 Kiel Court 


Sunnyvale, CA 94089 
Phone: 418-745-0700 


‘ast Load utility is 
an eight kilobyte ROM 
ina plug-in cartridge. You just plug 
it in to the cartridge port of the C-64 
and forget about it. The most drama- 
tic improvements in disk drive speed 
are associated with the LOADing of 
long program files, the longer the 
better. For example, Paper Clip nor- 
mally LOADs in one minute and 
eighteen seconds; with Fast Load it 
only takes fifteen seconds—a more 
than five to one speed up. 

The performance is not nearly as 
impressive when you get away from 
straight LOAD operations. For ех- 
ample, Standing Stones from Elec- 
tronic Arts normally boots in two 
minutes and twenty seconds. With 
Fast Load the procedure is reduced 
to one minute and forty seconds, a 
forty percent increase in speed. An- 
other example is Commodore's Easy 
Script, where the original LOAD 
time of one minute and two seconds. 
showed a mere five percent improve- 
ment at fifty nine seconds. Of course, 
other cartridge-based software was 
actually slowed up by the amount of 
time it takes to yank Fast Load from 
the expansion port. Finally, working 
from within Easy Script, we found 
no discernible difference in the time 
which it took to read and write text 
files. 


A DOS WEDGE— 
BUILT IN 

Fast Load offers far more than a 
five to one speed increase in program 
LOADs. It is actually several utili- 
ties in one package plus a number of 
DOS convenience features thrown in 
for good measure, When your C-64 
is powered up with the Fast Load 
cartridge in place, the only discern- 
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ible difference is the product name 


along with the usual sign-on message. 


Do not let this lull you into a false 
sense of smug somnambulance. 
Lurking at your fingertips are a 
myriad of hitherto unavailable fea- 


tures just awaiting your beck and call. 


The first and foremost is an instant 
DOS wedge. To get a directory list- 
ing just type “$” (that’s SHIFT 4 for 
all you neophytes) and hit RETURN. 


before your eyes. Furthermore, any 
program residing in the computer's 
memory remains totally oblivious to. 
the turmoil taking place around it. 
The only drawback was that there. 
seemed to be no way to slow down 
or put a halt to the process. Once 
started, the directory seemed most 
determined to scroll by to its final 
conclusion where it profoundly pro- 
claims the disk BLOCKS FREE 


Voila, the directory scrolls by right 


1 Nobody, copies batter И 


message, 
Since November 1984, Mr. Nibble has 


successfully copied heavily protected 
diskettes for grateful C-64 owners! 


ПІН МВ ВЕ” 
deliuena ! 


The next generation in archival 
methods is here today! 

No better disk copier at any price 
no complicated 


* Easy-to-use — 
instructions 
* Totally automatic 
of DOS ге 


You'll LO 


no knowledge 


wired 
IR. NIBBLE™ — if not. 


10 days for full refund 


return within 


Own THE FINEST DISK COPIER SYSTEM for 


The C-64 and 1541 disk drive - Onder today ! 


FULL CIRCLE SOI 


/ N 
е РО Box 
Рай Circle Dayton. On 
\Seftware/ Phone (513) 223-2102 
2 


8. handling. — 
id 6^; sales tax) 10 day return privilege 


~ Special MSD Version now available! A 
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Hitting RUN/STOP апа 
RESTORE just made matters worse. 

The screen cleared and the drive 
went off to sulk, apparently on an 
endless binge of disk spinning. Even 
depriving it of its orbiting celluloid 

had no noticeable effect. Despair not; 

the commercial at (@) is available | 
for inquiring into the health and well- 
being of the disk drive as it reads the 
DOS error channel. Exercising its 
function brings a response of bliss- 
ful contentment (a display of 00 OK 
00 00) shortly followed by a cessa- 
tion of all rotary motion. 

One other peculiarity commanded 
our attention. The traditional means 
of querying the disk contents, name- 
ly LOAD 57,8, returned a gaggle of 
worthless gibberish. However, the 
slash (/) character, which is now 
available in addition to the tradition- 
al LOAD command, served well in 
the classical sense. The directory thus 
LOADed retains its useful meaning. 
Other handy characters are the per- 
cent (%) symbol which replaces the 
binary LOAD “FILE”,8,1 sequence 
and the left arrow (+ ) which re- 
places the BASIC SAVE. 

Last but not least, the well-known 
LOAD “*",8,1 sequence, used by 
many purveyors of commercial soft- 
ware, is now available by the simul- 
taneous depression of the Commo- 
dore logo and RUN/STOP keys. 


THE DISK TOOL 

In addition to the built-in Wedge, 
Fast Load has a series of utilities 
ferred to as the Disk Tool. Upon crit- 
ical analysis, we would consider 
these a full-fledged crowbar. The 
British Pound key is used to access 
the Tool utilities. These are most 
comprehensive. Included are: 

* A single file copy utility which 
is limited to program files. 

* A full disk copy utility which al- 
lows for preformatted as well as post- — — 
formatted disks. This routine takes 
about ten minutes, 

* A BAM-directed disk copy util- 
ity. This will only copy sectors which 
are marked as allocated on the block 
availability map. 

* A disk sector editor utility. This 
allows you to read any disk sector, 
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Search For The Best High Quality Graphic Printer 


If you have been looking very long. you have 
probably discovered that there are Just too 
many claims and counterclaims in the printer 
market today, There are printers that have 
some of the features you want. but do not have 
others. Some features you probably don't care 
about; others are vitally important to you. We 
understand. In fact. not long ago. we were іп 
the same position. Deluged by clalms and 
counterclaims, Overburdened by rows and 
rows of specifications, we decided to separate 
all the facts — prove or disprove all the claims 
10 our own satisfaction. So we bought printers. 
We bought samples of all major brands and 
tested them. 


Our Objective Was Simple 
We wanted to find that printer which had әй 
the features you could want and yet be sold 
directly to you at the lowest price. We wanted 
to give our customers the best printer on the 
market today at a bargain price. 


The Results Are In 

The search is over, We hae reduced the field to 
а single printer that meets all our goals (and 
more The printer is the GP550 from 
Seikosha, a division of Seiko. We ran this 
printer through our battery of tests and it 
сате out shining. This printer can do it all 
Standard draft printing up to a respectable 
(and honest) 86 characters per second, and 
with а very readable 9 (horizontal) by 8 (ver 
tical) character matrix. At this rate, you will get 
an average 30 line letter printed іп only 28 
seconds, 


“NLQ” Mode 
One of our highest concems was about print 
quality and readability. The С/-550 has a print 
mode termed Near Letter Quality printing (NLQ 
mode). This із where the ОР-550 outshines all 
the competition, Hands down! The character 
matrix іп NLQ mode is a very dense 9 (horizon 
tal) by 16 (vertical. This equates to 14,400 ad 
dressable dots per square Inch. Now мете talk 
Ing quality printing. You can even do graphics 
їп the high resolution mode. The results are 
the best weve ever seen. The only other 
printers currently avallable having resolution 
this high go for $500 and more without the in 
terface or cable needed to hook up to your 
computer, 


Features That Won't Quit 
With the GP-550 your computer сап now print 
40, 48, 68, ВО, 96, or 136 characters per line. 
You can print in ANY of 18 font styles. You not 
only have the standard Pica, Elite, Condensed 
and Italics, but also true Superscripts and 
Subscripts. Never again will you have to worry 
about how to print H20 or X2. This fantastic 
machine will do it automatically. through easy 
Software commands right from your keyboard. 
All fonts have true descenders. 


One of the fonts we like best is "Proportional 
because It looks most like typesetting. The 
spacing for thin characters like “I and 71" are 
given less space which “tightens” the word 
making reading easier and faster. This is only 
опе example of the careful planning put into 
the 0Р:550. 
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Do you sometimes want to emphasize a word? 
Ws easy, just use bold (double strike) to make 
the words stand out. Or. if you wish to be even 
more emphatic, underline the words, Or do 
both. You may also wish to "headline" a title. 
Each basic font has a corresponding elongated 
(double-wide) version. You can combine any of 
these modes to make the variation almost 
endless. Do you wnat to express something 
that you can't do with words? Use graphics with 
your text — even on the same line, 


You can now do virtually any line spacing you 
want. You may select 6, 8. 7% or 12 lines per 
Inch. PLUS you have variable line spacing of 
1.2 lines per inch to infinity (no space at all) 
and 97 other software selectable settings in 
between. You control line spacing on a dot-by: 
dot basis, If you've ever had a te other 
document that was just a few lines too long to 
fit a page. you can see how handy this feature 
is. Simply reduce the line spacing slightly and 
.. УОНА! The letter now fits on one page. 


Forms? Yes! 

Your Letterhead? Of Course! 
Do you print forms? No problem. This unit wil 
Фо them all. Any form up to 10 inches vide. 
The tractors are adjustable from 3% to 10 in- 
ches. Yes. you can also use single sheets. Plain 
typing paper. your letterhed, short memo 
forms, anything you choose. Any size under 
10" in width. Multiple copies? Absolutely! Put 
forms or individual sheets with carbons (up to 
3 deep), and the last copy will be as readable аз 
the first. Spread sheets with many columns? Of 
Course! Just go to condensed mode printing 
and print a full 136 columns wide. Forget ex 
pensive wide-carriage printers and changing to 
Wide carriage paper. You can no do it all on a 


Consistent Print Quality 
Most printers have а continuous Joop ribbon 
cartridge or a single spool ribbon which gives 
nice dark printing when new. but quickly starts 
to fade after a while. To keep the printers out 
put looking consistently dark. the ribbons 
must be changed more often than is healthy 
for the pockethok. The GP-550 solves this 
problem completely by using a replaceable. in 
expensive ink cassette which is separately 
replaceable from the actual ribbon. It keeps 
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the ribbon loaded with ink at ай times. You only 
replace the ribbon when it truly wears out, not 
when it starts to run low on ink. Just another 
‘example of the superb engineering applied to 
the 0Р:550. (When you finally do wear out your 
ribbon. replacement cost is only $10,95. Ink 
cassette replacement cost is only $5.95, both 
postpaid.) 


The Best Part 

When shopping for a quality printer with alt 
these features, you could expect to pay around 
$500 or more. Not any more! We have done 
‘our homework. You don't have to worry ао 
interfaces or cables. Everything is included. 
You need absolutely nothing else to start prin 
ting = just add paper. 


No Risk Offer 


We give you a 15-day satisfaction guarantee. If 
you are not completely satisfied for any reason 
we will refund the full purchase price. A 1-усаг 
warranty is included with your printer. 


The Bottom Dollar 


ОРАЗОЛ Standard Parallel (No Cabie)........ 8240,95 
ОРОСО Commodore (Direct Connect)....... $289.95 
GPSSOAT. Atari (Direct Connect). 5250.95 
GPSSOAP Apple IG or Пе (Direct Соптес.......5299.95 


GP'SSOPC IB PC & Compatables (No Cable]. $250.95. 
GP5SOTI. 1199/44 Direct Connect), 3299.05. 


Prices & Availability Subject to Change. CALL 


Shipping is $8.00 — UPS within the continen: 
tal USA. If you are in a hurry, UPS Blue (second 
day air) is $18.00. Canada, Alaska, Mexico are 
$25.00 (air). Other foreign is $60.00 (ain. 
Califomia residents add 6% tax. These are 
cash prices — VISA and MC add 3% to total, We 
ship the next business day on money orders, 
cashiers’ checks, and charge cards, А 14-day 
clearing period is required for checks. 


TO ORDER CALL TOLL FREE 
1-(800) 962-5800 USA 
OR 1-(800) 962-3800 CALIF. 
ог send payment to: 
APROPOS TECHNOLOGY 
1071-A Avenida Acaso 
Camarillo, CA 93010 


Technical Info: 1-(805) 482-3604 
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modify it, and write it back to any 
sector on the disk. 

* A file utility which allows for 
locking and unlocking files (prevents. 
inadvertant scratching), and renam- 
ing and copying of program files. 

Overall, a rather nice collection of 
utilities to have in one place. 


ML MONITOR 

The Fast Load cartridge includes 
а machine language monitor. This 
program provides a full range of ma- 
chine code disassembly and memory 
display modes, access to the disk di- 
rectory and command channel, and 
both relocating and non-relocating 
binary LOADs. А full array of logi- 
cal and arithmetic operators are 
available for easy calculation of per- 
tinent parameters, Hexadecimal, dec- 
imal, binary, and ASCII conversion 
are built in. About the only thing. 
lacking is the customary single-line 
mini assembler. 


A COUPLE OF QUIRKS 


We noticed some additional oddi- 


ties worth passing on to the poten- 
tial user. Executing a call to the С-64 
rese: vector (SYS 64738) restores the 
C-64 to the power-up state as if the 
Fasi Load cartridge were not there. 
Resetting via a hardware reset but- 
ton brings the Fast Load cartridge 
back online, The Fast Load cartridge 
may also be disabled via a command 
from the built-in Disk Tool utility. 


A GOOD RETURN 

The Fast Load cartridge offers a. 
wide array of features in a compact 
package. The operation is surprising- 
ly transparent to all the forms of 
commercial copy protection we have 
looked at. For the few exceptions, 
Fast Load may be totally disabled via. 
the built-in soft switch without phys- 
ically removing the cartridge. Over- 
all, it may not be the fastest disk 
speedup utility, but it certainly offers 
а good return for the dollar. O 


CONCLUSIONS 
Of the three products we looked 
at, the Skyles Flash should provide 


| Œ COMMODORE: 64 | 


EPILOGUE 


the greatest overall improvement in 
disk handling with the 1541 disk 
drive. This is a direct result of ap- 
plying the speedup routines to all disk 
operations under all operating condi- 
tions. If you can handle the relative- 
ly complex installation, then the 
Flash will significantly cut down on 
time spent waiting for the drive. 

In terms of greatest convenience 
and utility, we place our bets on the 
Epyx Fast Load. The cartridge for- 
mat makes for fast and foolproof in- 
stallation as well as portability. As 
with the Flash, it is instantly avail- 
able on power up. It also has the wid- 
est selection of built-in support util- 
ities. Advanced users will be pleased 
by the instant availability of the pow- 
erful ML monitor. 

The Kwik-Load! package offers a 
good value. The disk copy and back- 
up utilities win the prize for speed. 
Given the low cost, you may just not 
want to pass this one up. О 


Not being content to leave well enough alone, we pre- 


SETARE- DF- THE MONTH CLUB 


dision of OCS., те) 


We guarantee you'll never again buy useless software for 
your personal computer. 


CLUB MEMBERSHIP OFFERS BIG SAVINGS 
— —— NO OBLIGATIONS «4— — —- 


When you enroli you wi * Be eligible for our Bonus Point Pian 
additonal discounts applied toward 
purchases 
2 Receive out informative monthly news 
nal ena you wan rtm I for А 7 ero ha op ata бе 
refund. мм from your Commodore 64. 
* Receive discounts up to 20% on your © Receive notice of Special Sales where 
sofware choices youl save an much өз 50% of Ми. 


* Көөр only the software that you can 
‘une, Examine for a full 10 days; И Ка 


Тһе Softwi 
No minimum purchi 


-the-Month Club is Unique. 
iired—no automatic shipments to you. 


CllyState/Zip. == 
Увамся— 


— Expiration date. 


Signature. 


Cut ол and mad today о 
* SOFTWARE-OF-THE-MONTH CLUB. 
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sent some last-minute updates on the Skyles Flash and 
the Epyx Fast Load cartridge. This information came 
to us just before we went to press on this issue. 


THE 1541 FLASH 

Skyles has indicated that the latest version of the 
Flash will include a defeat switch for the disk drive as 
well as the computer. This allows the Flash to be com- 
pletely disconnected from the system, The price of the 
new unit will be $99. Present users may upgrade for 
$15 plus $3.50 shipping and handling. Work is nearly 
complete on a two disk version of the Flash which will 
sell for $139.95 ($49.95 for the upgrade). We hope to 
report on this when it comes available. 


FAST LOAD 

A second sample of the Epyx Fast Load cartridge 
‘appeared unannounced upon our doorstep. Although all 
external indications appeared identical to our first sam- 
ple, we gave it a try. Much to our surprise, we found 
some subtle improvements. This latest revision prop- 
erly handles the LOAD"S",8 command we di: 
earlier. Epyx is apparently busy swatting bugs 
as they find out about them. This latest version of Fast 
Load brings the count up to three revisions which we 
know about. At this rate, the product should be well 
in hand by the time you read this report. 
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A DISK OPERATING SYSTEM 
ENHANCEMENT UTILITY 


he 1541 (or compatible) disk drive offers sig- 

nificant advantages over cassette as a storage 

medium, random access and speed of access 
- | being but two such. When you first purchased 
your drive unit you most likely realized a leap in your 
productivity and programming throughput. However, 
you soon came to see that although the 1541 allows you 
to harness some of the power of the Commodore 64, 
it can be cumbersome to use. Many programmers have 
set out to help rectify this by designing various utilities 
that make using a disk drive easier. While these solve 
some of the difficulties of disk drive usage, they create 
another problem: you end up with a disk full of pro- 
grams, one to do single-file copies, another to list the 
directory, another that allows you to ‘unscratch’ a file, 
and still another to find the load address of a file. Whew! 
Are things really easier now? 

I thought not—so I sat down, and after a little head 
scratching came up with Dos Plus. Dos Plus gives you 
а powerful set of tools with which you can better man- 
age your 1541 disk drive. The real power of Dos Plus 
is that you needn't keep an arsenal of utilities on disk 
waiting to be used. Dos Plus is in itself just such an ar- 
senal. You need only load it once. It will tuck itself away 
above BASIC memory and wait patiently for your com- 
mands. 

First type in DOS Boot (see page 98) and save it to 
disk. Then, using the Flankspeed program on page 86, 
type in and save DOS Plus. Then type NEW, and load 
and run DOS Boot. 

DOS Boot will also let you change certain default pa- 
rameters of your copy of Dos Plus. More on that later 
in this article. 

You now have an error-free working copy of Dos Plus. 
But what exactly do you have? Let's see. First, list the 
directory by typing '@$`. Dos Plus gives much useful 
information here. The load address of the program is 
listed to the right of your screen in hex and decimal. 
Block count is given, as in other Wedge programs. If 
your disk contains deleted files they will be listed as such, 
with a ‘DEL’ signifying the You may abort the list- 
ing of a directory by holding down the RUN/STOP key 
You may have to hold this key until it ‘catches,’ because 
the keyboard is polled between accesses to disk. Like- 
wise, the space bar will pause a listing, with any other 
key cancelling the pause function, Again, you will have 
to hold the space bar until the pause takes effect. If you 
wish to list the directory directly to a printer on the serial 
port, hit the fl or f3 keys before you issue the @$ com- 
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mand. If your printer answers to device number 4, use 
the fl key. If your printer answers to device number 
5, use the f3 key. Be careful that you use the correct 
key for your printer. If the computer attempts to open 
a channel to a non-existent device, the program will 
‘hang.’ You can recover from this only by using the 
RUN/STOP-RESTORE combination. If you accidentally 
press fl ог f3 or wish to cancel a dump to the printer, 
POKE 923,0 to cancel the dump flag. The dump to print- 
er function is automatically cancelled after the dump is 
completed or, alternately, if you abort the total listing 
of the directory with the RUN/STOP key. 
Let's try another tool. Type the following 


@:D18,1 <RETURN> 


This is the 5 ОК DUMP/MODIFY command. Mag- 
ically, the first sector of the disk directory is listed to 
the screen. You may use the cursor keys to move the 
cursor to any position within the block. If you make any 
changes to the block, the entire block will be rewritten 
to disk as modified. If you accidentally enter an invalid 
digit, i.e., OZ or P8, the rewrite feature will abort. You 
can use this command structure to do many things. You 
can unscratch a file by changing the third byte preced- 
ing the first character of a filename from 00 to 82. The 
unscratch will be successful only if no saves were made 
to disk after the file was scratched. This feature is pri- 
marily useful when you inadvertently scratch a file. Al- 
ternately, you might wish to change a sequential file to 
a program file or a user file to a sequential file. You 
should not make changes concerning relative files. A 
sector, or block, can be dumped directly to your print- 
er in the same manner as described for directory list- 
ings to printer. Again, make use of the 1/13 keys prior 
to issuing the @:D command. After the printer dump 
is complete, the sector will be listed to the screen where 
you may modify it or exit by pressing RETURN. 1 would 
advise that you practice using the @:D function on an 
expendable disk. This function is very powerful and can 
generate disastrous results if used carelessly 
This one you've already used: 


@: [BACKARROW] 'FILENAME',$<START ADDRESS> 
»$<END ADDRESS+1> 


You use this command structure to save a file from other 
Continued on page 61 


By Dennis Muscatelli 
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Muay 7119) SUPER AUTO com 
FOMROBORESS SALE DIAL MODEM 64 


(Best communications package in USA) 


PRICES $ % goo 
MAY 

BE 
LOWER 


* with $19.95 Software Purchase 


7139 ... 


You 


. ive $149.00 * 
170К Disk Drive ORDER 


* Tractor Friction Printer $169.00 
* 13" Hi-Res Color Monitor $189.00 * 
* See Page 13 


* Computer Learning Pad $37.95 

* New Voice Synthesizer $49.00 

* 12" Green or Amber Monitor $79.95 
* 12" Daisy Wheel Printer $199.00 


SPECIAL SOFTWARE COUPON 


* COMMODORE 64 COMPUTER $139.00 je peck a SPECIAL SOFTWARE DISKCOUNT| SUPER AUTO DIAL MODEM $59.00 
You роу only $139.00 [with the $19.95 soltwore COUPON with every COMMODOI 5 Just plug into your Commodore 64 
purchose. see below) when you order the powerful DISK раме. ә you're reody to in и end reci 
фик COMMODORE 54 COMPUTER! LESS the valve of jo use than dio 
the SPECIAL SOFTWARE DISCOUNT COUPON we pack 
Wilh your compu lows you to SAVE OVER 
$500 ӨН soltwore cei oniy, $10 ol [TP 
tovings applied. your ne! computer costi 39 00 
PROFESSIONAL SOFTWARE 

* VTOK DISK DRIVE 5149,00 
You. реу only $149.00 [oh фе 995 soltwore COMMODORE 64 муора iae reir А 
purchase, see below) when you order Ihe 170K Disk LEARNING PAD 
Drive! LESS We. volue o the SPECIAL SOFTWARE 
DISCOUNT COUPON we pack with your disk drive hot м uos * FANTASTIC 
allows you to SAVE OVER 5500 cll soltware sale 
pricey! With only $100 of savings applied. your net 
isk drive сом з $49.00 


* 13" HI-RES COLOR MONITOR 5189.00 x ви " computers Jus! p 
^ and hear ler talk — ADD SOUND ТО 


savings applied your net color mon 
Er desi Я 12" GREEN OR AMBER MONITOR 379.45 
80 COLUMN 80 CPS Ser rap tae our choice of green or amber screen monitor, top 
TRACTION/FRICTION 
only $169.00 when you o Comit 
ine printer that prints 0 M site. single over 100 coupon items in our catalog, 
oll or fan fold paper. labels, etc. Impact dot Write or call for 
value of the SPECIAL Sample SPECIAL SOFTWARE COUPON! шкі 
SOFTWARE DISCOUNT COUPON we pack with your 
printer that allows you to SAVE OVER $500 olf 
Soltwore sole prices!! With only $100 of savin 
applied your net printer cost is only $09 00 


10 COLUMN BOARD $79.00 EXECUTIVE QUALITY 
Now you program BO COLUMNS on the screen o! one PROFESSIONAL BUSINESS SOFTWARE so co CARDCO G + INTERFACE 559.00 
time! Converts your Commodore 64 to 80 COLUMNS ИН For Commodore 64 and Vic 20 computers (еп you use 
when you plug in the 80 COLUMN EXPANSION rei other printers with Centronics. interfaces. Thin 
BOARD! ! PLUS 4 slot expander! Con ure with most intertoce lets the printer act like a Commodore printer 
soltwore 


m tor up and down 


quality дону wheel printer, 12 

extra ішіде corrige. up то 12 CPS bi directional 
ing. drop in cassette ribbon. centronics porollel 

232 serial port built in! (ресі) 

List 5299 00 SALE 5199.00 


ding printing the Commodore graphics. (Dot 
matrix with graph iy printers 
List $109.00 SALE SS 


80 COLUMNS IN COLOR А: з Receisabie. 379% 
EXECUTIVE WORD PROCESSOR $39.00 ws Peysble 

A EXECUTIVE WORD PROCESSOR n e. інен 
Slade lr e COMMODORE Et compar! Te All Protects produc trm minnom 90 do 
ULTIMATE FOR PROFESSIONAL Word Processing ty. Th ү олуп i y 
DISPLAYS a0 or d COLUMN COLOR of Seek ooh warranty. Therefore. anything fas sain 90 
FD WORD ОО complete ara? ond 7 send your product to us wo Unled Parcel 


prepoid. We will IMMEDIATELY send 
you o replacement o! no charge vio United 
Parcel Service prepoid. This warranty proves 
once again that We Love Our Customers. 


* LOWEST PRICES * 15 DAY FREE TRIAL PHONE ORDERS * 90 DAY FREE REPLACEMENT WARRANTY 
BEST SERVICE IN U.S.A, * ONEDAY EXPRESS MAIL т туоска * OVER 500 PROGRAMS * FREE CATALOGS 


Add $10.00 for shipping. handling and insurance. Illinois residents => ROTECT 

please add 6% tox Add $20.00 for CANADA. PUERTO RICO. MAWAT 

ALASKA. APO.FPO orders. Canadian orders must be im 125. dollars 

WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA. We Love Our Custome 
Enclose Cashiers Check. Money Order or Personal Check. Allow 14 


days foc delivery. 2107 days lor phone orders; 1 doy СЬ. maii Box 550, Barrington, Illinois 60010 


VISA — MASTERCARD — C.O.D. No C.O.D. to Соподе. APO-FPO. 312/382-5244 to order 
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NEW 128K —MEGA BYTE DUAL DISK DRIVE—80 COLUMN 


COMPUTER SYSTEM SALE! 


HOME * BUSINESS ® WORD PROCESSING 


LOOK AT ALL you СЕТ РОВ ОМУ © 795. ist price 


(i) B128 COMMODORE 128K 80 COLUMN COMPUTER $ 995.00 
(3) 4023 - 100 CPS - 80 COLUMN BIDIRECTIONAL PRINTER 499.00 
@ 8050 DUAL DISK DRIVE (over 1 million bytes) 1795.00 
@ 12" HI RESOLUTION 80 COLUMN MONITOR 249.00 
* BOX OF 10 LORAN LIFETIME GUARANTEED DISKS 49.95 
* 1100 SHEETS FANFOLD PAPER 19.95 
+ ALL CABLES NEEDED FOR INTERFACING 102.05 


TOTAL LIST PRICE $3717.95 


PLUS YOU CAN ORDER THESE BUSINESS PROGRAMS AT SALE PRICES 
ит SALE SYSTEM ust SALE 
Programmers} professional 80 Column Poyroll $149.95 * When Bought 
Reterence (o, Mord Processor . Inventory $149.95 with В128 
x Professionol Data Bose д Generol Ledger $149.95 
Uist 529,95 Accounts Receivable Financial Spread Sheet 514995 КӨРДІК 
Salo $24.95 Accounts Payable. $149.95 $99.00 Order Entry 5149.95 


UST 
Olympia Executive Letter Quality Printer $699.00 

PRINTER REPLACEMENT OPTIONS Comstar Hi-Speed 160 CPS 15'%" Business Printer $779.00 
(replace the 4023 with the following printers a! these Tete inn cet oca Doe Moden occa el MEUS HD 
sole prices. Interface Included) IEEE to Centronics Parallel Printer Interface $179.00 


15 DAY FREE TRIAL. Wo give you 15 days to try out this SUPER SYSTEM PACKAGE! ! If it doesn't тео! your expectations, just send it back 
to us prepaid and we will refund your purchase price! ! 

$0 DAY IMMEDIATE REPLACEMENT WARRANTY. If any of the SUPER SYSTEM PACKAGE equipment or programs fail due to faulty 
workmanship or material we will replace it IMMEDIATELY with no service charge! ! 


Add 550.00 for shipping and handling! 
WE DO NOT SHIP THIS SYSTEM TO FOREIGN COUNTRIES, 
CANADA, PUERTO RICA. ALASKA, OR HAWAII. 


eise Het tel money der ir arse ec Me 1 doy ba ENTERPRIZES «nns 


MUS SIT ee а M NE кан M V BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 
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FANTAST 


IC PRINTER 


*24^ SALE! 5249 


Commodore 64 — VIC 20 — Atari 


* 40 And 80 Column Printers 
Upper And Lower Case 


3150 Alphacom 81-100 CPS 80 Column Printer 


Now you сап һауе a printer for the cost of a 
large box of paper. This printer prints in upper 
and lower case with true lower descenders. 
Comes with 1 roll of paper and power adapter. 
With the intelligent interfaces (sold below) you 
con do Ascii graphics as well as Atari or 
Commodore graphics. Plus you con do 
underlining and expanded modes. Print out 
Pictures, program listings, word processing 
ages, etc. Perfect for the student or 
отеомпег. List $199.00. Sale $39.95. 


80 Column Extra Paper LIST SALE 
3153 40 Meter Rolls Blue $14.95 $3.95 
3154 40 Meter Rolls Black 519.95 $4.95 
3155 25 Meter Rolls Blue (2perpkg.) $1995 $7.95 
3156 25 Meter Rolls Black (2 per pkg.) $1995 $8.95 


3101 Intelligent Commodore Interface — Allows you to 
hook the 40 or 80 column printer to the Commodore 64, do 
program listings, allows software screen dumps, etc. 
Includes Commodore graphics and reverse choracters. 
(Specify 40 or 80 Column) List $59.95. 


40 Column Sale $9.95. 80 Column Sale $14.95. 


Add $10.00 lor shipping. handling and insurance. Illinois residents 
pleose odd 6% tax. Add $20.00 for CANADA, PUERTO RICO. HAWAII. 
ALASKA. АРО-ҒРО orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA 
Enclose Cashiers Check, Money Order or Personal Check. Allow 14 
doys lor delivery. 2 to 7 days for phone orders, 1 doy express той! 
VISA — MASTERCARD — C.O.D. No C.O.D. to Canada, APO-FPO 


Reader Service No. 223 


Up To 100 Characters Per Second » Full Graphics Capability 
Advanced Thermal Technology For Quiet Operation 


3100 Alphacom 42-80 CPS 40 Column Printer 
Print out listings with full computer character 
sets (interface required, see below). Print in 
upper and lower case. Comes with a roll of 
paper and all power adapters needed. Perfect 
for a spare printer or program lister. List $99.00. 
Sale $24.95, 


40 Column Extra Paper LIST SALE 
3103 25 Meter Rolls Blue 5995 $3.00 
3104 40 Meter Rolls Blue $1695 $3.95 
3105 25 Meter Rolls Black (1 per pkg.) $1295 $3.95 
3106 25 Meter Rolls Blue (2 per pkg.) $1995 $5.95 
3107 25 Meter Rolls Black (2 per pkg.) $1995 $5.95 


3102 Intelligent Atari Interface — Allows you to hook 
the 40 or 80 column printer to the Atari computer, do 
program listings, allows software screen dumps, etc. 
Includes Atari graphics and reverse characters. (Specify 40 
or 80 Column) List $59.95, 

40 Column Sale $9.95. 80 Column Sale $14.95. 


PROTECTO 


We Love Our Customers 
Box 550, Barrington, Illinois 60010 


312/382-5244 to order 


FANTASTIC C 


* Fast 80-120-160 Characters Per Second 


* Word Processing 


JXE COMSTAR T/F 
Printer $169.00 

8 ^ (Tractor Friction) 

ER is exc тзаШе, It 
prints 814" x 11" standard size single she 

stationery or continuous feed computer 

paper. Bi-directional, impact dot matrix, 

80 CPS, 224 characters. (Centronics 

Parallel Interface), 


Premium Quality 120-140 CPS 
10X COM-STAR PLUS + Printer $199 

The COD gives you all the 
features of the COMSTAR T/F PRINTER 
plus a 10" carriage, 120-140 CPS, 9 x 9 dot 
matrix with double strike capability for 18 
x 18 dot matrix (near letter quality), high 
resolution bit image (120 x 144 dot matrix), 
underlining, back spacing, true lower 
descenders with super & subscripts, prints 
standard, italic, block graphics & зр 
characters, It gives you print quali 
features found on printei 
much!! (Centronics Parallel Interfa 
(Better Epson FX80). RATED 
"BES ' BY CONSUMERS DIGEST 
BUYERS GUIDE, JANUARY 1985! List 
$499.00. Sale $199.00. 


Tractor 


Friction 
Printer 


only? 1607 


* Lowest Priced, Best Quality, Tractor-Friction Printers in the U.S.A. 


Premium Quality 120-140 CPS 
15/5 X COM-STAR PLUS + 
Business Printer $319.00 
H the fe s of the 10" COM-STAR 
PLI + PRIN’ R plus ” carriage 
and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson FX 
100). List $599. Sale $319.00. 


Superior Quality 
15/5" COM-STAR PLUS 
High 


+ HS. 
peed 160-180 CPS 


powerful 
ronic components to handle larger 
er business forms! (Serial Centronics 

Parallel Interface). List $799. Sale $449. 


12" DAISY WHEEL 
PRINTER $199.00 
Superb letter quality daisy wheel 

extra large carriage, up to 
12CPS bi-directional printing, drop-in 
cassette ribbon, (90 day warranty) 
centronics parallel ог R serial port 
built in! (Specify). List $299.00. Sale 
$199.00. 


“JUKE 
printer, 


The Most Important Accesso! 


* 40, 46, 66, 80, 96, 132 Characters Per Line Spacing 
* Print Labels, Letters, Graphs and Tables 
e Print Out Data from Modem Services + 


* List Your Programs 
for Your Comput: 


Superior Quality 
10" COM-STAR + Н. 
HIGH SPEED 160-180 CPS 
Business Printer $349.00 
This Super Migh Speed Com-Star+ 
Business Printer has all the features of the 
10" COM-STAR+ PRINTER with HIGH 
ESS PRINTING 160-180 
‚ 8K Buffer, diverse 
jal symbols and true 
1 horizontal tabs. A 
PRINTER at an 
price (Serial or 
Interface). List 


unbellevable 
Centronics 
$699.00. Sale 


low 
arallel 
00. 


Printer/Typewriter 
Combination $249.00 
“JUKI” Superb letter quality, daisy wheel 
printer/typewriter combination. Two 
machines in one — just a flick of the 
switch. extra large carriage, 
typewriter keyboard, automatic margin 
control and relocate key drop In cassette 
ribbon! (90 day warranty) centronics 
parallel or erial port built in 

(Specify). List $399.00. $249.00. 


15 Day Free Trial — 1 Year Immediate Replacement Waranty, 


For VIC-20 and COM-64 — $49.00. Commodore В-12 


PARALLEL INTERFACES 


WE DO NOT EXPORT TO OTHER COUNTRIES 


Enclose Cashiers Check. Money Order or P 
1 for phone ord 


— $139.00. Apple — $79.00. Atari — $79.00. 


PROTECTO 


We Love Our Customers 
Box 550, Barrington, Illinois 60010 


312/382-5244 to order 


COM-STAR PLUS+ 
Print Example: 
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FU JI sare?” 


Premium Quality Floppy Disks 


Box of 10 with hub rings, sleeves and labels 


Famous Brand FUJI Floppy Disks for those who care about keeping their data. 
List $39.95 


Single Sided — Double D i 
нави Арт Apple Банды а сады Sale $14.90 


*$12.95 хх Flip-N-File хх * $12.95 


Data-Case 


Floppy Disk Filer 


| Everyone Needs a Floppy Disk Secretary 


oot Facts: 

* Dust and Dirt particles can hurt your disks 

* Most disks go bad due to mishandling in storage 

* Proper filing of your disk collection will reduce 
unnecessary handling of your disks 


The Floppy Disk Filer is an inexpensive hard plastic Fliptop case that will ollow for easy filing, and protect 
your disks from dust, smoke, and dirt. Plus, the Floppy Disk Filer will keep all your disks out of unwanted 
ands and in one place where you can easily find them. (Holds Over 50 Disks) 


Introductory Sale Price $14.95 «couponsizss 
PROTECTO 


We Love Our Customers 
n Вох 550, Barrington, Illinois 60010 
312/382-5244 to order 


List $24.95 


Add $300 for shipping handling ond insurance Minois rev. 
please add &*. tox Add $6 001 TO RICO НА 
ALASKA. AFO.FPO orders. Can: 
WE DO NOT EXPORT TO OTHER 
Enclose Cashiers Check. Money 
days lor delivery. 2107 days lor 
VISA — MASTER CARD — СОО 

No C.O D. to Солобо APO-FPO 
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Commodore 64 
MODEM / 


Telecommunications 


$59 


: List $129.95 


List $129.95 


Lowest-Pric In-the U:S.A. 
( FOR CHILDREN-ADULTS: BUSINESS ) 


Complete Auto Dial 
Telecommunications Package 


"The only telecommunications package you will ever need." 
(Exclusive Easy To Use Features) 


dest —=— Total ——— 
Telecommunications 


* 300 Baud Modem * AutoDial * Auto Answer * Upload & Download 
* Membership in 52 Database Services (UPI News, etc.) 


Reach Out and Access Someone 


* Educational courses * News Updates and Information 
* Financial Information * Popular Games * Electronic Shopping 
* Banking а! Home * Research and Reference Materials 


The Total Telecommonications Package offers you all this plus ... 


* Auto Log-on 
* Dialing from Keyboard 


Stores on Disk Downloaded Files 

Reads Files from Disk and Uploads Text or Program Files 

* On-line Clock Select Any Protocol (access almost any computer or modem) 
* Capture and Display High Resolution Characters Plus Much, Much More 


* Download Text, Program or Data Files $ оо 
List 5129.95 Special Low-Low Price 5 9 


We are so sure this is the only telecommunications package you will need we will give you 15 days Free Trial, 


‘Add 53.00 lor shipping, handling and insurance. Illinois residents P ROTE сто 
please odd 6% tox. Add $6.00 for CANADA, PUERTO RICO. HAWAII. 


ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars. 


WE DO NOT EXPORT TO OTHER COUNTRIES, EXCEPT CANADA We Love Our Customers 
рб. 5527 деу phone ardere, 1 doy expreit у а Орлов E0010 
VISA — MASTER CARD — СОО 312/382-5244 to order 


No C.O.D. to Canada, APO-FPO 
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1541 RASH! — 


THE CRITICS SPEAK OUT | 


This advertisement has been written by indepen- 
dent reviewers of Commodore computer products. 
We thank them for their frankness and the high marks 
awarded to the Skyles Electric Works 1541 FLASH!. 


The Reviewers Comment 


“Tired of that slow disk drive? The solution is here, 
andi it costs about $90. Considering what it does, the 

bargain! It speeds up your 1541 disk drive 
00%. And if you write your own software 
lly for the FLASHI, you can achieve speed 
5 of 600%! 

The 1541 FLASH! is the best! It’s better than 
KWIK LOAD™ And better than 1541 Express!" 

Does it sound too good to be true? Do you suspect 
there must be some drawback that I haven't men- 
tioned? Well... There is one. You have to open up 
your keyboard and 1541 drive and do a little work 
inside them. You need to replace a couple of chips 
with new ones provided by the FLASH!. And an extra 
cable will run from your keyboard's user port to your 
1541 drive. But the installation is explained in 
complete detail with pictures. It's a simple operation. 
that will take under 30 minutes. And in return you 
will have a disk drive that literally races along! 

The biggest complaint with the Commodore 64 is 
the slow disk drive. No more! You will never be 
willing to go back after having used the 1541 FLASH!. 
It really spoils you! It's even faster than a parallel 
drive with an IEEE interface! Don't be afraid of the 
installation. It's really simple. And if you prefer not to 
doit yourself, your local user's group probably has 
people with the ability to install it for you. You'll be 


Bladyoudid тһ Northwest Users Guide, Jan. 1985 


“A tiny wedge is included... you simply 5 6 
to enable it. Those who enjoy using the wedge as part 


of their normal computer will like this feature. 

The utilities added by FLASH! include single, 
double and simultaneous keystroke implementetion 
of such niceties as delete line, escape quote, cursor to 
bottom of screen, 16 character tab, and return without 
line execution. 


My children have played some of their favorite 
games and used utilities or educational software 
without any problems whatsoever, using the 1541 
FLASH! Allin all, this device will save the purchaser 
much of the frustration normally experienced, as well 
as the time required in normal disk drive-computer 
interactions. With the above noted exception, I'm 
very pleased with its operation, and won't hesitate to 
recommend it to those who would like faster loads 
and saves or want additional flexibility and power ata 
moderate price.” RUN, May 1985 


“Having used 1541 FLASH! for several days, 
already I can’t bear to go back to a slow 1541. It's 
amazing how quickly you can get spoiled by a luxury 
like this. More than a few editors here have cast covet- 
ous eyes on the upgraded 64/1541. And the price is 
reasonable for such a dramatic enhancement. After 
reading the installation description above, you can 
decide if you're up to opening your equipment, yank- 
ing out chips, and enjoying a 300% speedup.” 

‘Compute!’s Gazette, Jan. 1985 


Commercial Details 


1541 FLASH! ... ...5 89.95* 
1541 FLASH! with Disk Switchboard ..... 99.00* 
1541 FLASH! for Two Drives ... 22... 139,95* 
1541 FLASH! for 5Х-64......... ... 99.95* 
1541 FLASH! for MSD Drives ........... Ња" 


“Май order please add 53.50 for shipping and handling, 
California residents add sales tax as required. 


Available from your local Commodore 
dealer or call 1-800-227-9998 


Skyles Electric Works 
231E South Whisman Road 
Mountain View, CA 94041 

1-(415) 965-1735 


1541 FLASH! is a trademark of Skyles Electric Works, 
Commodore 64 isa trademark of Commodore 
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COLUMN 8 


By the Numbers 


The Binary, Hexadecimal, and Decimal Notation Systems 


By Mark Andrews 


hree kinds of number systems are commonly 
| | used in assembly language programming. 
They ài 

(1) Decimal numbers, based on the value 
10 and written using the Arabic numerals 0 through 9. 

(2) Binary numbers, based on the value 2 and usualy 
written using the Arabic numerals 0 and 1. 

(3) Hexadecimal numbers, based on the value 16 and 
customarily written using the Arabic numbers 0 through 
9, plus the letters A through F. The digits 1 through 9 
аге used just as in conventional decimal notation, and 
the letters A through Е as single-unit symbols for the 
values 10 through 15. 

Decimal numbers are what most of us learned in school 
so not much will be said about them. Instead, we'll fo- 
cus on the binary and hexadecimal number systems. Let's 
start with binary numbers. 

The ones and zeroes that make up binary numbers are 
known as bits. A series of four bits is called a nibble 
(or nybble), a series of eight bits is called a byte, and 
a series of 16 bits is called a word. 


PENGUIN MATH 

The best way to explain the principles of the binary 
system is with something I call Penguin Math. Penguin 
Math is the number system that penguins would probab- 
ly use if penguins could use numbers. 

Imagine that you're a penguin. You wouldn't have 10 
fingers on each hand, so there'd be no way you could 
count on your fingers. You'd have just two flippers, and 
if you wanted to count on something, you'd have to count 
on them. 

Suppose that you're a very bright penguin, and did 
learn to count on your flippers. You wouldn't be able 
to count to 10. But you would be able to count to 2. 

Now suppose that you're the smartest penguin on Pen- 
guin Island. If you were that sharp, you might figure 
out how to use your flippers to count past 2. Here's one 
way you could do that. 

Instead of counting on your flippers the same way hu- 
mans count on their fingers, you could decide to equate 
a raised right flipper to 1, and a raised left flipper to 2. 


talia.net 


Then you could let two raised flippers represent the 
value 3. 

Now suppose you were the Albert Einstein of Pen- 
guin Island, and devised a new mathematical system to 
express in writing what you had done. 

You could use a 0 to represent an unraised flipper, 
and a 1 to represent a raised one. And then you could 
scratch these equations in the ice: 


00-0 
01-1 
10-2 
1123 


AHA! FEET, TOO! 

Those are, of course, binary numbers. And they cl 
ly show that if you were a really smart penguin, you 
could use two flippers to express the values 0 through 
3. That's a clear improvement over the two values that 
can be represented with more traditional flipper-count- 
ing methods. 

Since our imagination has taken us this far, let's now 
suppose that you (still a penguin) wanted to learn to count 
past 3. While pondering this problem, you might look 
down at your feet —and notice two more flippers down 
there. 

Voila—bigger numbers! 

By using both flippers and both legs at the same time, 
you could count as follows: 


FOUR-BIT PENGUIN MATH 


0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 - 8 
1001 - 9 


бапан 


0 
1 
2 
3 
4 
5 
6 
if 
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гапа so on. 

If you continued counting like this, you would even- 
tually discover that you could express 16 уашез—0 
through decimal 15—using four-digit (or four-bit) binary 
numbers. 


ONE MORE LESSON 

Now we're ready for one last lesson in Penguin Math, 
Imagine that you marry another penguin. And, using 
your skill with ry numbers, you determine that you 
and your spouse have a total of eight flippers between you, 

If your spouse decides to cooperate with you in count- 
ing with flippers, the two of you could now sit on your 
ice and start a floe chart with numbers that look like these: 


If you and your spouse kept on counting in this fash- 
ion—using 8-bit Penguin Math — you would eventually 
discover that by using eight flippers, you could count 
from 0 (or 0000 0000) to 255 (or 1111 1111), for a to- 
lal of 256 values. 

That completes this crash course in Penguin Math. 
What it has demonstrated is that it is possible to express 
256 values — from 0000 0000 through 1111 1111—us- 
ing 8-bit binary numbers. 


THE HEXADECIMAL NUMBER SYSTEM 

Since computers "think" in binary numbers, the bi- 
nary system is obviously an excellent notation system 
for representing computer data. But, as you may remem- 
ber from last month's column, binary numbers have one 
serious shortcoming: they're extremely difficult to read. 
So the binary system is not the numeric system most 
often used in assembly language programming. The nu- 
meric system you'll encounter most often in assembly 
language programming is hexadecimal. 

Just as binary numbers are based on the value 2, hex- 
adecimal numbers are based on the value 16. If people 
were born with eight fingers on each hand, we would 
probably all count in hexadecimal numbers. 

Hexadecimal numbers are often used in assembly lan- 
guage programming because they can help bridge the 
вар between the binary and decimal systems. Since bi- 
nary numbers have a base of 2, and hex numbers have 
à base of 16, a series of four binary bits can always be 
translated into one hexadecimal digit. So a series of eight 
bits (a "byte") can always be represented by а pair of 
hexadecimal digits, and a series of 16 bits (a “word”) 
can always be represented by a four-digit hexadecimal 
number. 

Here is a table comparing decimal, hexadecimal, and 
binary numbers. Observe that odd-looking letter-and- 
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number combinations like “ЕСС”, *5DA4", and even 
"ABCD are perfectly good numbers in the hexadecimal 
system. 


DECIMAL HEXADECIMAL BINARY 
1 1 00000001 
2 2 00000010 
3 3 00000011 
4 4 00000100 
5 5 00000101 
6 6 00000110 
7 7 00000111 
8 8 00001000 
9 9 00001001 

10 A 00001010 
11 B 00001011 
12 с 00001100 
13 D 00001101 
14 E 00001110 
15 H 00001111 
16 10 00010000 


in hex and “00010000” 
number in both the binary sy 
system. And the hexadecimal digit F, which comes just 
before hex 10 (or 16 in decimal), is written 00001111 
in binary. 

As you become more familiar with the binary and hex- 
adecimal systems, you will begin to notice many other 
similarities. For example, the decimal number 255 (the 
largest 8-bit number) is 11111111 in binary and FF іп 
hex. The decimal number 65,535 (the highest memory 
address in a 64K computer) is written FFFFFFFF in hex 
and 11111111 11111111 in hex. 


CONVERTING BINARY NUMBERS TO 
DECIMAL NUMBERS 

It isn't very difficult to convert a binary number to 
à decimal number. In a binary number, as we've seen, 
the bit farthest to the right represents 2 to the power 0. 
The next bit to the left represents 2 to the power 1, the 
next represents 2 to the power 2, and so on. 

The digits in an 8-bit binary number are therefore num- 
Бегей 0 to 7, starting from the rightmost digit. The right- 
most bit—often referred to as Bit 0— represents 2 to the 
Oth power, or the number 1. And the leftmost bit—of- 
ten called Bit 7—is equal to 2 to the 7th power, or 128. 

The following is a list of simple equations that illus- 
trate what each bit in an 8-bit binary number means, 


VALUES OF THE BITS 
IN AN 8-BIT BINARY NUMBER 
Bit 0 = 2 to the Oth power = 1 


2 
4 
8 


Bit 1 = 2 to the Ist power = 
Bit 2 = 2 to the 2nd power = 
Bit 3 = 2 to the 3rd power = 


Bit4 — 2 to the 4th power — 16 
Bit 5 = 2 to the Sth power = 32 
Bit 6 = 2 to the 6th power 64 
Bit 7 = 2 to the 7th power = 128 


The above table provides an easy method of convert- 
ing any 8-bit binary number into its decimal equivalent 
Instead of writing the number down from left to right, 
write it instead in a vertical column, with Bit 0 at the 
top and Bit 7 at the bottom. Then multiply cach bit in 
the binary number by the decimal number that it repre- 
sents. Then add up the results of all of these multiplica- 
tions —and the total you get will be the decimal value 
of the binary number. 

Suppose, for example, that you wanted to convert a 
binary number 00101001 into a decimal number. Here's 
how you could do it 


CONVERTING А BINARY NUMBER 
INTO А DECIMAL NUMBER 


IX Гай 
0x 220 
0x 4- 0 
1х 8-8 
0х 16- 0 
Ix 3222 
0x 64-0 
0 x 128 0 
TOTAL = 41 


00101001 AND OTHER FANCY NUMBERS 

If the calculation in the above example is correct, the 
binary number 00101001 should be equivalent to the dec- 
imal number 41 (that's decimal 41, not hex $41, for those 
already familiar with hexadecimal notation). Look up 
either 00101001 or 41 on any binary-to-decimal or dec- 
imal-to-binary conversion chart, and you'll see that the 
calculation was accurate, And this conversion technique 
will work with any other binary number. 


CONVERTING A BINARY NUMBER TO 
A DECIMAL NUMBER 

Now we'll go in the other direction, and convert a dec- 
imal number to a binary number. 

First, divide the number by 2. Then write down both 
the quotient and the remainder. Since we're dividing by 
2, the remainder will be either a 1 or 0. So what we 
write down will be the quotient followed by either a 1 
or a 0. 

Next we'll take the quotient, divide it by two, and write 
the result down. If there's a remainder (a 1 or a 0), we'll 
write that down, too, underneath the first remainder. 

When there are no numbers left to divide, we'll write 
down all of the remainders we got, reading from the bot- 
tom to the top. What we'll have then, of course, is а 
binary number —a number made up of ones and zeroes. 
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And that number will be the binary equivalent of the 
decimal number we started out with. 

This conversion technique is illustrated in the follow- 
ing example: 


CONVERTING A DECIMAL NUMBER 
TO A BINARY NUMBER 


117/2 = 58 with a remainder of 1 
58/2 = 29 with a remainder of 0 

292 = 14 with a remainder of | — 
14/2 = 7 with a remainder of 0 

7/2 = 3 witha remainder of 1 — 
32 = 1 witha remainderof | — — 
12 = Q with a remainder of 1 

02 = Owith a remanderofO — 


HOW TO DO IT 

To complete the decimal-to-binary conversion pre- 
sented in this example, simply copy the binary digits in 
the right-hand column, writing them down horizontally 
from right to left, with the top digit on the right. You'll 
then see that the binary equivalent of the decimal (not 
hexadecimal) number 117 is 01110101. If you have a 
decimal-to-binary conversion chart handy, you can use 


ye 


for the Commodore 64 
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BINARY-TO-HEX AND HEX-TO-BINARY 
CONVERSIONS 

It's easy to convert binary numbers to their decimal 
equivalents. Just use this chart: 


HEXADECIMAL-TO-BINARY 
CONVERSION CHART 


HEXADECIMAL BINARY 


0000 
0001 
0010 
0011 
0100 
010: 
0110 
011) 
1000 
100) 
1010! 
1011 
1100 
1101 
1110 
nu 


тпООосо>схс-асльов-о 


The above table shows how to convert a multiple-dig- 
it hex number to binary notation: merely string the hex 
digits together and convert each one separately. For ex- 
ample, the binary equivalent of the hexadezimal num- 
ber СО is 1100 0000. The binary equivalent of the hex 
number 8F2 is 1000 1111 0010. The binary equivalent 
of the hex number 7A1B is 0111 1010 0001 1011. 

To convert binary numbers to hexadecimal numbers, 
use the chart in reverse. The binary number 1101 0110 
11100101, for example, is equivalent to the hexadecimal 
number D6ES. 


DECIMAL-TO-HEXADECIMAL 
CONVERSION 

It's almost a 
adecim 
how it's done: 

First, take a decimal integer that you want to convert, 
and divide it by 16. Then write down the remainder, 
like this: 


y to convert decimal numbers to hex- 
to translate binary to decimal. Here's 


64540/16 = 4033 with a remainder of 12 


Then divide the integer part of the above quotient by 
16, and write down the result of that calculation: 


4033/16 — 252 with a remainder of 1 


Keep repeating this process until you have a quotient 
of zero. Here's the entire set of calculations needed to 
convert the decimal number 34761 into a hexadecimal 
number: 
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64540/16 = 4033 with a remainder of 12 
4033/16 = 252 with a remainder of 1 
252/16 = 15 with a remainder of 12 
1516 = O with a remainder of 15 


When you've finished this series of calculations, you 
must convert any remainder greater than 9 into its hex- 
adecimal equivalent. In the above problem, three rei 
ders are greater than 9: the value 12 in the first line, 
the value 12 in the third line, and the value 15 in the 
fourth line. The decimal number 12 equates to the let- 
ter C in hexadecimal notation, and the decimal number 
equates to the letter Е. So the remainders, converted into 
hex, a 


с 
^ F 


Read the above four numbers, starting from the bot- 
tom and reading up, and you have the hexadecimal num- 
ber 


FCIC 


— which is the number we're looking Гог— the һехай 
imal equivalent of the decimal number 64540! 


DOING IT THE EASY WAY 

We've compared three different number bases: the dec- 
imal system, the hexadecimal system, and the binary sys- 
tem. And now you know how to convert numbers from 
any of these three bases to any other, in either direc- 
tion. Some of the conversion techniques we've covered 
are quite simple, others are fairly complicated, and un- 
photographic memory, you may not re- 
of them by tomorrow morning. But for- 


tunately, you wont have to. Now that you know the prin- 
ciples involved, ГІ tell you about an easier way to make 
number-base conversions. Just type and save the pro- 


gram presented in Listing 1 (on page 93) and you can 
let your computer do it for you! 
By the Numbers is a menu-driven BASIC program that 
an convert пит from any of the three bases dis- 
cussed in this article to any other. 
In next month's column, Under the Hood, we'll take 
à look inside your Commodore's main microprocessor 
and see what makes it tick. Then, finally, we'll be ready 
to start writing some programs in assembly language. Г] 
SEE PROGRAM LISTING ON PAGE 93 


SMALL THINGS CONSIDERED 


Our congratulations to the following Commodore users, win- 
ners of subscriptions to Ahoy! courtesy of New York's Small 
Things Considered radio show (heard weeknights 5-8 und Sat- 
urdays 6-8 on WNYC АМВЗ): 
Pamela Rosenblatt. Zev Frankel 
Melissa Rosenblatt Matthew Higgins 


Meredith Jones Frummer 


-CalKit helps you solve household and small business 
problems that involve rows and columns of numbers, 


€ balance your chequebook in seconds 
© plan your home or business budget with ease 


гө simplify your income tax, and your investment 
| portfolio 


ө calculate loan or mortgage payments, and then 
find out what happens to them in seconds, when 
interest rates change 


That's the real advantage — with CalKit, you сап 
change any number in your equation, and see how it 
affects the other numbers. All calculations are per- 
formed instantly! CalKit gives you the answers, in the 
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WRITE FOR A FULL COLOR BROCHURE 


time it takes to ask “What If. ..?" You can make 
projections and plan ahead with confidence? 


The CalKit problem-solving package includes built- 
in templates for the most important home and busi- 
ness needs. Over 20 ready-to-use, real-life applica- 
tions on one disk. The rows, columns and calcula- 
tions are already defined. No need for time- 
consuming initial set-ups — all you do is enter your 
data, Other CalKit features, like on-screen menu and 
simple commands, make it even easier. 


An easy and comprehensive manual with tutorials on 
cach application are included. You'll be using CalKit 
like a pro, right out of the box. And once you've 
mastered the built-in templates, you'll be ready for 
your own unique spreadsheet programs. 


Powerful solutions + ease of use + low low cost = CalKit. It all adds up to exceptional value, 
for a computer program that can help you every d. 


17875 Sky Park North, 
Suite P, Irvine, California 
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mM | ixty times each second the 
МЕ and C-64 аге inter- 
rupted by an internal clock. 
At that point they stop what 
they are doing and service the inter- 
rupt. They check the keyboard, up- 
date the screen and TIS, and then re- 
sume whatever they were doing 
when interrupted 
It is possible to "wedge" into this 

interrupt handler and have some of 
our own activities handled in back- 
ground, independent of our main 
program. You may want to scroll a 
game background scene. You m: 
want to perform some utility func- 
tion such as handle the joystick or. 
possibly take each key pressed and 
print it on your printer as well as on 
the screen. It's possible to do all this 
and more. The process is easy to un- 
derstand and implement. 
he sample programs on page 107 
perform a simple operation but serve 
to demonstrate how to set up, le, 
utilize, and, when finished, disable 
such a wedge. The programs are 
listed as BASIC loaders; a machine 
language assembly listing is included 
here so you follow along with the 
explanations. The assembly listing is 
from the Commodore assembler. 


UNDERSTANDING 
THE INTERRUPT 
To help us understand what's go- 
ing on, lets first discuss the hardware 
interrupt in general. We'll use the 
VIC and C-64 for illustration, but 
this applies in a general 1o all 
microcomputers which use the 6502 
or 6510 microprocessor chip. The 
hardware interrupt occurs 60 times 
ich second and is processed by the 
6502 (or 6510) CPU chip. АП 6502's 
(or 6510's), on receiving a hardware 
interrupt, look to the pointer spec 
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Е HARDWARE 


fied їп ROM locations $ > 
$FFFF (low byte, high byte). This 
pointer ‘points’ to the first address of 
the routine, which handles the inter- 
rupt. In the VIC it points to $FF72 
in ROM ($FF48 in the 64). When 
the interrupt is recognized, the pro- 
cessor status register and program 


NTERRUPT 
WEDGE 


counter are stored on the stack and 
control is transferred to the routine 
beginning at address $FF72 (or 
SFF48). This routine saves the pro- 
sor registers (A,X, Y) on the stack. 
This routine then does an indirect 
jump to whatever address is con- 
tained їп RAM locations $0314, 


Assembly Listing 


LINE LOC CODE иш 
e000) ILL 

(2221 

E 1 BY CAL 


ШЕЕ ЕНЕН 


сл 
RTS 


LOA 197 
Bm 


cur 
RTS 


STA VECTORe1 


‘STA VECTORe1 


nmm 
END OF LISTING 1 
ТТТ 


ОТА 
|1 SAMPLE HARDWARE INTERRUPT WEDGE 4 


OVERHULSER 4 
nium 


munia 
18ТАЖТ AT ADDRESS 020 


OCKOUT INTERRUPTS DURING SETUP 
1104 BYTE OF OUR NEW HANDLER 
JPUT IT IN THE VECTOR LO BYTE 
IMISM BYTE OF OUR NEW HANDLER 
ЭРИТ IT IN THE VECTOR HI BYTE 
JALLOM INTERRUPTS AGAIN 

50 BACK TO WHERE WE WERE 
nin 

HANOLER STARTS HERES 


MIDI 


IGET THE CURRENT KEY PRESSED 
IPUT IT IN THE MIDDLE OF SCREEN 
18 UBE ФЕР FOR Cos 

1CODE FOR COLOR = PURPLE 

IPUT ІТ IN COLOR RAM 

19 USE WDBFF FOR Cos 

INON GO DO NORMAL HOUSEKEEPING 
в ЦВЕ ЗЕАЗ FOR СЫА 


ILOCKOUT INTERRUPTS DURING RESET 
INORML INTERRUPT ROUTINE LO BYTE 
14 USE 9831 FOR cos 

АРАЛ IT BACK IN LO BYTE 

INORM. INTERRUPT ROUTINE HI BYTE 
14 BANE FOR СЫЗ 

APUT IT BACK IN HI BYTE 

TALLOW INTERRUPTS AGAIN 

ТАЦ. DONE, 50 BACK WHERE WE WERE 
nun 
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FOR TH 


$0315. This is referred to as the vec- 
tor location. When power was turned 
on, the start-up routine set these lo- 
cations to point to ROM location 
SEABF (SEA31 in the 64). At 
SEABF (or SEA31) begins the rou- 
tine to take care of the keyboard, 
screen, and TIS. 

When this routine finishes, it re- 
stores all processor registers and re- 
turns the CPU to where it left off. 
when the interrupt was recognized. 
Тһе key to all this is RAM locations 
$0314, $0315. Since they are RAM, 
we can put our own address in them. 
Later, when the interrupt is recog- 
nized, we can perform our own 
activities and then jump to SEABF 
(or SEA31) to allow the normal 
housekeeping. 


HOW TO MAKE IT WORK 

Make sure any memory expanders 
are unplugged on the VIC. Enter the 
appropriate BASIC loader for your 
computer at the keyboard and RUN 
it. The BASIC loader POKE: 
machine language from the DA’ 
statements into the cassette buffer 
Next, start it all off by typing 
SYS828 followed by the RETURN 
key at the keyboard. This takes us 
1o our setup routine at $033C. Now 
follow along while looking at the as- 
sembly listing. We wouldn't want an 
interrupt to occur while we аге 
changing its vector, so first we lock 
out interrupts in line 16. Then we 
change the vector to point to our own 
routine, enable interrupts, and return 
10 the main program with RTS in line 
22 


Now the fun begins! From now 
оп, our routine, beginning in line 26, 
will run first when the interrupt oc- 
curs. Hit a key and watch what hap- 
pens; a charcter is printed in the сеп- 
ter of the screen. You may notice the 
character is not the one you press. 
This is because we are taking the 


E VIC AN 


it on the screen. These codes are dif- 
ferent than the screen codes and this 
causes the strange character to ap- 
pear. After we put the character on 
the screen in line 27, we put the code 
for purple in the corresponding col- 
or memory location in line 30. Last, 
in line 32, we jump to the normal 
ping routine. This all occurs 
60 times each second. 

To disable our routine and put ev- 
erything back to normal, just type 
followed by RETURN 
54 takes us to line 37 in the as- 
sembly listing which puts the vector 
back to normal. Hitting the RUN/ 
STOP and RESTORE keys will have 


D C-64 


A MACHINE LANGUAGE TUTORIAL FOR BEGINNING 
AND INTERMEDIATE ML PROGRAMMERS 


By Calvin Overhulser 
code from the register holding the de- 
coded keyboard matrix and storing 


the same effect. Make sure you dis- 
able our interrupt routine before you 
try to SAVE or LOAD tape, other- 
wise there will be a conflict since the 
routine resides in the cassette buffer. 


APPLICATIONS 

Now that we know how to use the 
hardware interrupt we can write rou- 
tines to handle any job which we 
need done at a regular interval. 
Would you like to do sound effects 
Or screen background motion? 
Would you like to do a screen dump 
1o your printer whenever you hit a 
certain key? Use your imagination 
and all kinds of possibilities 
revealed, Г) 
PROGRAM LISTING ON PAGE 107 
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RUPIERT REPORT 


ASSEMBLER 


ESCAPADES 


tines into BASIC 


By Dale Rupert 


Putting Assembly Langu 
re you curious about those BASIC programs 
that contain line after line of numbers in 
DATA statements? Perhaps you know that 

somehow all of those numbers represent a 


machine language program. If you've wondered where 
the numbers came from in the first place, just keep read- 
ing. Enlightenment is clos hand. 

This month we will continue last month’s work. We 
will use an assembler to create a machine language pro- 
gram. Next, using a disassembler, we will look at that 
program in memory. Finally we will convert the ma- 
chine language instructions into the DATA statements 
of a BASIC program. 

If this is your first experience with assembly language, 
this article will be at à two-pass process. I strong- 
ly recommend that you read it through first for an оуег- 
view of all the concepts, then reread it at least once to 
study how the pieces fit together. 

Last month we discussed the Kernal routine called 
SAVE. We used SAVE from within our BASIC program 
to put a spe portion of memory onto a disk pro- 
gram file. Specifically, we wrote a program to store the 
machine language portion of DOS 5.1 (“ће 
any diskette. We also discussed the modif 
quired to save a screen image onto a disk. 

This month we will work with a program to sa' 
the screen memory and the color memory data of the 
Commodore 64 onto separate disk files. We will start 
with last month's BASIC subroutine to access the Ker- 
nal SAVE routine. Then we will edit, assemble, and dis- 
assemble a machine language program to replace that 
BASIC subroutine. Have a look at the main program 
in Listing 1 (see page 91). 

Lines 150 through 330 access the Kernal SAVE rou- 
tine, as we discussed last month. They form a subrou- 
tine which is called from lines 60 and 90. When this 
subroutine is called, SADDR and EADDR contain the 
starting address and ending address respectively of the 
portion of memory to be written to a disk program file. 
The file's name is specified by the variable FLNAMS. 
The OPEN statement in line 230 replaces the SETLFS 
and SETNAM Kernal routines which are prerequisites 
for the SAVE routine. Review last month's article or re- 
fer to the description of the SAVE routine on page 293 
of the Commodore 64 Programmer's Reference Guide 
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(PRG). This is the subroutine that we will replace with 
пе language program. 

We will come back to lines 1 and 2 of Listing 1 later. 
Lines 10 and 20 define the functions which calculate the 
most significant byte (MSB) and the least significant byte 
(LSB) of any integer X. Line 30 calls the subroutine at 
line 500 which puts a fancy design on the screen. 

Lines 40 through 60 define the variables required for 
the SAVE routine. The filename of the screen memory 
is Q:SCRNI. The “@:” will cause any previous ver- 
sion of SCRNI to be erased before the current screen 
data is saved as an updated SCRNI. This is handy for 
debugging so that you don't have to repeatedly define 
new filenames every time the program is run. On the 
other hand, when you use this program to save your own 
screen images, you will want to use a new filename for 
each screen image. 

Before putting an image onto the screen, you could 
use INPUT ements to specify the filename for the 
screen memory and the color memory. You might add 
lines 26 and 27 as follows to do this: 


26 INPUT "CREATE WHAT SCREEN 
FS$ 

27 INPUT "CREATE WHAT COLOR FILENAME?"; 
FC$ 


You would then replace lines 40 and 70 with these lines: 


40 FLNAM$ = FS$ 
79 FLNAM$ = FC$ 


The additional statements to restore the screen image 
are in lines 100-140 and line 600. Line 110 clears the 
screen image which has just been saved to disk. Line 
130 sets a flag QQ to 1. We'll see why in a moment. 
The color memory filename is stored in FLNAMS, and 
the program jumps to line 600. Line 600 loads the data 
from that file back into the memory-location whence it 
came (because of the 7,1" at the end of the LOAD state- 
ment.) 

After the LOAD statement is done, BASIC behaves 
as if a GOTO 0 were next, and execution resumes at 
the start of the program. In line 1, the value of QQ is 
tested and seen to be 1, so the program branches to line 
140. When this program is run for the first time, the 
value of QQ is 0. Consequently lines 1 and 2 are by- 
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FILENAME?" ; 
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passed initially. 

At line 140, the QQ flag is set to 2, and FLNAMS 
is given the value of the screen memory filename. Line 
600 loads the screen file data back into the proper area 
of memory which is now at locations 1024 through 2023, 
and the image reappears on the screen. As before, exe- 
cution continues from the beginning of the program. 
Since QQ now has a value of 2, line 2 causes the pro- 
gram to end. If you wish to do something else with this 
screen image, simply modify line 2 to jump to your own 
routine. 


THE ASSEMBLER 

Our next goal is to write an assembly language rou- 
tine to duplicate the functions of the BASIC statements 
in line 240 through 310 of Listing 1. First you must have 
an assembler program. I used the JEA Instant Editor As- 
sembler from Robin's Software (Bloomington, MN). It 
is a reasonably priced editor, assembler, and monitor 
package that is self-contained and relatively easy to use. 
If you are using another assembler, the procedures in 
the following discussion will be very similar. 

The /EA assembler does not require a separate editor 
program to create the assembler source file. Instead it 
adds some commands to the BASIC screen editor. Thus 
you create an assembly language routine much the same 
way you do a BASIC program. Simply type cach assem- 
bler statement on a separate line. Although /EA allows 
the BASIC and assembler routines to be contained with- 
in the same file, we will create the assembler routine 
separately. 

Look at the statements in Listing 2 (page 92). 

With the exception of the periods ut the start of each 
line, lines 210 through 340 were typed just as shown. 
(Lines 10 through 30 and the initial periods on each line 
were added later in order to create the magazine listing.) 

The assembler takes this “source code" which consists 
of somewhat Englishlike statements and translates it into 
"object code" which is the actual machine language num- 
bers that the processor understands. Some of the state- 
ments in this source code translate directly into machine 
code, while others are special instructions for the as- 
sembler, called “pseudo-ops.” 

First we will discuss the 6510 microprocessor instruc- 
tions in the source file. Then we will look at the pseu- 
do-ops. Pages 232 and 233 of the PRG list the 6510 in- 
struction set. Using that list, you can see that lines 230 
and 260 through 320 of the source listing contain actual 
6510 instructions. 

Line 230 tells the processor to JuMP to the line la- 
beled *:ENTRY”. 


respond as much as possible to lines performing sim 
functions in Listing 1. 

The accumulator is frequently used as ап intermedi- 
ary since the 6510 microprocessor cannot directly move 
data from one memory location to another. Line 260 
loads the accumulator (LDA) with the value stored in 
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the memory location labeled *:SADDR". Line 265 takes 
that value in the accumulator and stores it (STA) direct- 
| 


the accumulator and then stored into page-zero location 
SFB in lines 270 and 275. (We will see what those mem- 
re a little later.) 

а "load immed struction as indicated 
^^ in front of the $FB, Rather than treat the $FB 
an address as it did with *:SADDR" above, the micro- 
processor will put the value of SFB directly into the ac- 
cumulator. 

Lines 290 and 300 take whatever values are in mem- 
ory locations *:EADDR + 17 and :EADDR" and load 
m (LDX, LDY) into the X and Y registers. Glance 
back at Listing 1, and see that these assembly language 
instructions duplicate the functions of the BASIC instruc- 
tions in lines 260 through 300. 

The JSR instruction in line 310 is comparable to a 
GOSUB statement in BASIC. It tells the processor to 
the subroutine whose address is stored in the mem- 
ory location labeled *:SAVE". You can see that the a: 
sembler memory location labels are analogous to vari- 
able names in BASIC. 

At the end of the Kernal SAVE routine is an RTS (Re- 
turn from Subroutine) instruction which transfers con- 
trol back to our program at line 320. The RTS instruc- 
tion in line 320 returns control back to BASIC. Notice 
taht Listing 1 doesn’t need such a statement since the 
SAVE routine returns directly to BASIC, Listing 2 cre- 
ates a machine language program which calls another 
machine language Kernal routine, whereas Listing 1 is 
a BASIC program that calls the Kernal routine. 


PSEUDO-OPS 

The instructions in Listing 2 that we have not yet dis- 
cussed are the pseudo-ops. They look somewhat like as- 
sembly language mnemonics (LDA, RTS, etc.) but they 
are not among the instructions recognized by the 6510 
microprocessor. The pesudo-ops are instructions to the 
assembler. 

The ORG (Origin) instruction tells the as: 
the program is to reside in memory. Ме? 


chosen $CO00 
for the start of our routine, The next pseudo-op is the 
.EQ (Equate) in line 240. This is equivalent to the LET 


statement in BASIC. It assigns the value SFFDB to the 
label :SAVE, just as we did in line 240 of Listing 1. 
The .EN instruction in line 340 tells the assembler where 
the end of our assembler source code is. These three 
pseudo-ops do not actually cause any data to be put into 
memory. 

The pseudo-op .DB (Define Byte), on the other hand. 
does cause data to be stored in memory. The location 
in memory for the first of the two bytes $04 and 500 
will be referred to by the label :SADDR. and :EADDR. 
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identifies the memory location of the first of the two bytes 
507 and SES. The second bytes are at (:SADDR + 1) 
and (:EADDR + 1) respectively. 

If we were to assemble this program by hand, we 
would have to figure out how many bytes long the JMP 
instruction in line 230 is in order to know where in mem- 
ory the $04 and the $00 will reside. The assembler takes 
care of that for us. It allows us to refer to the memory 
locations by means of the labels we have chosen, Con- 
sequently we don't even need to know the actual numer- 
ical values. 

Since assembly language is a lower-level language than 
BASIC, comments are even more crucial for debugging 
and for figuring out tomorrow what the routine you wrote 
today was supposed to do. A semicolon defines the start 
of a comment in the source code. Anything after the 
semicolon on a line is ignored by the assembler. 

Right now you may be wondering what we do with 
the source code we've created, First we save the source 
code we would save any BASIC program we have 
typed in, Then we assemble it. 

With the /EA assembler, the instruction .A puts the 
assembler into action. The mnemonics are translated into 
their numeric values. The values following the .DB 
do-ops are inserted in their proper places. Also a 
bol table ted which shows the numeri 
signed to ei 
assembler d 


е 92). 

5С003. The ORG state- 
1 that our program was to begin at $C000. 
From this we can conclude that the JMP instruction re- 
quires three bytes, residing from addresses $С000 to 
$C002. The label :END has a value SCOID, so our pro- 
gram will оссиру memory locations 5С000 through 
SCOID. Actually the „ЕМ pseudo-op creates a $00 byte 
at location $CO1D which corresponds to a BRK (Break) 
instruction. Refer to page 256 of the PRG to see the hex 
values led the op-codes) of all instructions. 

Now that we have edited (created) and assembled this 
program, we can save it to disk as an executable file 
if we wish. Using the .5 command saves a spe 
range of memory under a filename that we choose. The 
program saved is called the object code, In order to see 
what the object code looks like, with the /EA assembler 
We must use à separate monitor program. 


THE MONITOR 

A monitor program allows you to readily peck at data 
and instructions stored in memory. A monitor will typ- 
ically contain a disassembler which translates the num- 
bers it finds in memory back into the mnemonics that 
we used with the assembler. Generally a disassembler 
cannot create labels since those are not stored in mem- 
огу as part of the object code. (A symbolic debugger 
will allow you to assign labels and refer to them during 
debugging. but we won't use one here.) 
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Notice 


Listing 4 (sec page 92) shows the result of disassem- 
bling our object code as it resides in memory. 

I have added the numbers in the left column for the 
magazine listing. They correspond to the numbers in 
ings 1 and 2. The disassembled object code is in es- 
sence what the microprocessor sees when it executes our. 
program (yes, we know the values in memory are really 
05 and 1 rather than hexadecimal, but binary is too 
cumbersome for our brains). 

The second column of numbers indicates the memory 
addresses where each instruction resides. The next one, 
two or three hex values are the op-codes for each i 
struction, The last columns contain the mnemonic in- 
structions corresponding to the op-codes. 

For example, beginning at memory location $С000 
are the three bytes $4C $07 $CO. When the processor 
sees the $4C instruction, it recognizes it as a JMP state- 
ment. The processor expects the next two bytes to rep- 
resent the address to which it will jump. Those two bytes 
are stored in the LSB, MSB format we have already dis: 
cussed. Consequently the processor jumps to address 
5С007 in order to fete! next instruction. 

Some instructions are only one byte long (RTS) and 
others may be two or three bytes long. Part of the pro- 
cessor's job is to determine from the op-code how many 
bytes make up each instruction. If you glance at the de- 
scription of the LDA instruction on page 245 of the PRG, 
you will see that it may be either a two or three byte 
instruction. How does the processor know? Very simply, 
each form of the instruction has a separate op-code. 

Op-code $A9 implies a two-byte instruction, and op- 
code SAD is part of a three byte long instruction, The 
assembler mnemonic is LDA in both cases, but the pro- 
cessor sees them as two different instructions. In the first 
case (line 280 in Listing 4), the processor treats the next 
byte (SFB) as data which is immediately loaded into the 
accumulator. In the second case (line 270), the next two 
bytes ($04 SCO) are treated as an address ($С004) from 
which the processor retri a byte of data to be stored 
in the accumulator, 

The disassembler treated our data in locations SC003. 
through $C006 as if they were op-codes. The $04 and 
$07 are not valid op-codes whereas $00 and SES just 
happened to be valid, These values correspond to the 
screen memory starting and ending addresses that will 
be used by the Kernal SAVE routine. Our BASIC pro- 

‘am will POKE the corre into these memory lo- 
cations before this program is executed. The processor 
will not mistakenly execute this data since the JMP in- 
struction at $С000 branches around it. 

To test your understanding of this embly list- 
ing, see if you can figure out what value will be loaded 
into the Y register when the instruction at memory 10- 
cation $С016 is executed. If you said $07, you are cor- 
rect. ГОУ 5С005 tells the processor to take the value 
from location $С005 and put it into the Y register. Ac- 
cording to line 253, the value in location 5С005 is 507. 
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An integrated business software package 
for the С-64” for $1.59 a Program? 
Yes. 


The Inteligent Software Package for C-64™, VIC", SX-64™, Plus 4“, 16", 'B-Series", and PET/CBM™. 
No games, no fancy packaging, and you can't buy it anywhere but here. But: 22 powerful, useful programs (totall- 
ing over 51 pages of source code] that will put your Commodore to work right now, in your horne or office; all on 


disk or tape at the ridiculous price of $35. Includes: 


Database: A complete multi-keyed fixed-record-length data base 
manager. Sort or select [using ай relational operators:, = >, <2, 
АМО, OR, МОТ, wid card] on any field, perform computations on 
numeric fies. Any operation can be performed on өй, or only selected 
records. Ай fields completely user-definable. Can be used for any 
number of tasks, including accounting, maiing ists, inventory con- 
trol, record, tape, or book cataloging, expense account 
manintenance, or as an electronic rolodex. Even if you use your Com- 
 modore for nothing else, this program alone might justify ts expense. 

Word Processor: The orgnal word processor for the VIC-20, W/P 
is now available for all CBM models. A ful-featured menu-driven word 
processor including very fast Не commands (ncludng а desk catalog), 
Screen editing, text locating and full control over margins, spacing, 
paging, indentation, and justification. ” . . . well done and highly funo- 
tional . . . Provides an excellent alternative to the high priced word 
processors . . . this в an excellent buy. Highly recommended." — 
Midnite Software Gazette, “Provides good basic features, " — Com- 

pute's Gazette. 

Copycalc: An electronic spreadsheet. Turns your Commodore in- 
to a visible balance sheet; includes screen editor. "Excellent program 
for budgeting, estimating, or any math-oriented use . . . well worth 
the money. Highly recommended.” — Midnite Software Gazette. 


Intelligent Software 


Quality Software since 1982 


• 30 second formatting • sophisticated 
disk editor • and much, much more. 


POWER PLUS 


Make your C-64 Grow! 


Utility adds 40* commands, 
doesn't use BASIC memory 
* 100% machine. e SCREEN 
DUMP to printer e UN-NEW 
* MACHINE LANG. MONI- 
TOR * Adds BASIC com- 
mands AUTO LINE NO., RE- 


NUMBER, FIND, 
CHANGE, 
DELETE, more. 


14 ACTION GAMES 


When you order both programs 


"Who Needs IBM?" 


Send check or money order (include 
$2.00 postage & handling) CA 
residents add 6% sales tax to: 

VISA MASTERCARD 


v.oldgamesita 


FREE 


EDUCOMP 
2139 Newcastle Ave., Ste. A 
Cardiff, CA 92007 
(619) 942-3838 


Reader Service No. 229 


Also Included: ReportGen, ReportMerge [interface W/P with 
Database to create form letters, statements, invoices, mailing 
labels, other reports]; Baseball Statistician (compiles batting 


statistics for a baseball league]; several W/P utiities, including In- 
dex (indexes W/P's text files); several Database utilities, including 
DBmerge (facilitates тие database applcations.), AND 
DBStat (analyzes D/B fies]; a programming utiity, ASCII, which 


converts text files (program listings] into program files; also 
Checkbook; Inventory; Paper Route; Loan Analysis; 
Breakeven Analysis; Depreciation; Labeler; more. 

Versions of the package ere available for any and every Commodore 
‘computer having a minimum of 10k RAM (does it say ‘Commodore’ 
оп? How about on the box it came in?) Add $3 if you have an 8050 
disk drive. All programs wil fuly support tape, disk, and printer, The 
package is available on disk or tape (disk version only for Plus™ and 
16.) Price includes documentation and shipping within USA and 
Canada; all other countries, add S5 (no personal checks from out- 
side USA). No charge cards. For C.O.D., enclose $5 fee; Calf. 
residents add 6%. This ad is the catalog. 


Box A Dept. A. 
Бап Anselmo, CA 94960 


Service No. 230 


C-64 UTILITIES 


COPY CLONE with Utilities Copy protected 
disks in 5 minutes or less. Works with MOST 
software. Will not damage disk drive. Over 20 
utilities, including professional disk drive analysis. 


51095 


HOT ACCOUNTS" 


The most highly acclaimed 
bookkeeping system 
for the Commodore 64° 


accounting functions Itis a complete system that 

wil instantly organize your records and гесерів 

and supply charts кита! statements, and budget 
mation. Now your records can be accurate, | 

up to date and confidential e Tracks charge 

Cards. checkbocks, al transactions ® Requros | 

no prior knowledge of accounting ө Hi 

small business e Improves your inan 

* Cost less than 1 hour with a CPA 

HOT ACCOUNTS" Bookkeeping System 

оп Diskette. 

For RUSH сеегу. send check or money 

order for $6495 to 

Computer Ed Sottware 

1002 Brookes Ave W. Ste 100 


T1 


P.S. Use HOT ACCOUNTS" to do your taxes 
ds tax deductible! 


BONUS OFFER! Oroer betore July 15ih and 

receive a tul featured, 60 tuncton word pro- |) 
19 & 3-0 business graphics package a: 

Ол FREE әл to you 
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Now what value will be stored in page-zero location 
SFB by the instruction at location SCOOF? If you said 
$00, you're right! Notice that the accumulator contained 
the value which it got from $С004 in line 270. The val- 
ue in $С004 is $00. 


BACK TO BASIC 

We can now modify our original program to imple- 
ment the machine language routine we've just discussed. 
From the disassembler output, we easily create the 
DATA statements in Listing 5 (see page 92). The state- 
ments in Listing 5 will replace the corresponding lines 
in Listing 1. 

The data is POKEd into memory by the statements 
in lines 190 through 220. Once that is done, memory 
locations $С000 through $COIC look the same as they 
did after we assembled our source code. The first time 
called (by line 60), the machine lan- 
and stored in memory. The second 
lled (by line 90), lines 190 through 220 are 


Lines 240 through 290 put the appropriate screen or 
color memory starting and ending addresses into the 
proper RAM locations (which we determined from the 
symbol table in Listing 3 and from Listing 4). 
ly the SYS statement in line 310 sends the pro- 
cessor to our machine language routine at address 49152. 


R А 


($С000) where the specified memory data is written to 
a disk file. As in Listing 1, the filename is established 
by the OPEN statement in line 230. 

There is really no advantage to using the machine lan- 
guage version of this subroutine compared to the BASIC 
version. The machine language version has been written 
to exactly duplicate the BASIC one, The Kernal SAVE 
routine takes the same amount of time to execute regard- 
less of which routine calls it, so we have no speed ad- 
vantage in this particular case. This has been primarily 
an academic exercise. 

Hopefully you now have a better understanding of how 
machine language routines may be incorporated into 
BASIC programs. Perhaps you have learned something 
about editing, assembling, and disassembling. This ar- 
ticle has provided a model which may be useful for crea- 
ting and calling your own machine language routines 
from BASIC. If nothing more, at least you have two 
versions of a program for saving and restoring screen 
images on disk. 

The /EA Instant Editor/Assembler is $39.95 + $2 p&h 
from Robin's Software, 10349 Zinran Circle, Bloom- 
ington, MN 55438. Mark Robin mans the assembly lan- 
guage hotline at 612-944-8654 from 6 to 10 p.m. (CST) 
seven days а week to assist Commodore 64 assembly 
language programmers. O 

SEE PROGRAM LISTINGS ON PAGE 91 


For the C-64 


By Larry Coats, with Noel Nyman 


ou are making a raid on Heartland to cap- 
ture as many hearts as you can. But beware 
of the butterflies. One touch and you'll lose 
one of your lives. Touch too many and you 
lose the game. 

This game uses a joystick to move a playing piece 
through a simple maze, capturing hearts by touching 
them. ing around in the maze are butterflies. You 
must avoid them and collect all the hearts to exit from 
їһе maze. If you make it, you score extra points and. 
Bet a new maze. 

Up to nine people can play, taking turns with the joy- 
k. There are nine levels of play as well. The game 
seem simple at first, But looks сап be deceiving! 
Machine language is used for the maze action to pro- 
vide fast movements and quick joystick response. 

Two programs are used to LOAD and RUN Raid. 
Type in the Disk Воо! on page 94 if you use a disk drive. 
Use Cassette Boot, also on page 94, if you have a 
datasette. Then type in the main listing. SAVE the pro- 
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gram with the name Raid so the boot program can LOAD: 
it properly. 

Since there are many DATA statements, we've in- 
cluded a “checksum” to help you detect any errors in 
typing. The last number in each DATA line is negative. 
Be sure to type in the minus sign. 

When you first RUN Raid, you may see an error mes- 
sage on the screen. The message will identify the line 
number of a DATA statement that has an error. Once 
you've found all the errors, the program will display the 
maze and ask you for the number of players and level 
of difficulty. 

You can remove the REM statements in lines nine 
through twenty-five if you wish. Line #2140 displays. 
the updating address on the screen during the machine 
language load. The program will LOAD faster if you 
leave out the two PRINT statements on this line. Don't 
take out the POKE statement! 

We hope you enjoy this simple but challenging game. O 

SEE PROGRAM LISTING ON PAGE 94 
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DOS PLUS 


Continued from page 39 
than the start of BASIC. For instance, you might have 
a hi-res screen you wish to save, or a block of sprite 
data that you want to write directly to disk. Give your 
data block a filename, enter its starting address and end- 
ing address + 1, and Dos Plus will do the rest. No more 
loading a monitor to save machine language programs! 
You may reload such saved files by typing LOAD “file- 
name”,8,1 <тгешгі>. You could even save BASIC 
ROM itself, if that were your passion. Notice that 
the file saved is automatically verified for you. 
This one is used several ways: 


*FILENAME <RETURN> 
or 
*"FILENAME" <RETURN> 


or by entering the asterisk directly in front of a filename 
in a directory listing. This is the SINGLE-FILE COPY 
command structure. After entering it, you will be 
prompted for a destination. Single drive users should 
respond by entering ‘8’. The file will now be copied into 
memory from the disk that is presently in the drive with- 
out overwriting any program you might have in memory. 
The size of file that may be copied is limited only by 
the amount of memory available between the next even 
page boundary above the end of any program in memory 
and the top of BASIC. If, during the copy process, the 
file exceeds the top of BASIC high memory, the copy 
will abort with ‘FILE TOO ВІС If you are going to 
copy a very large file it would be wise not to have a 
n in memory at the time of copy. After the entire 
been brought in from disk you will be asked to 
insert the destination disk and press RETURN. The en- 
tire file will then be written to the destination disk. The 
file will be auto-verified at that point (unless you have 
defeated that function). If you wish to abort the copy 
process, you can do so by pressing RUN/STOP at the 
‘INSERT DESTINATION DISK’ query. Do not attempt 
to copy relative files with this function. Sequential, user, 
and program files may all be copied but will be written 
as program files. If you use this function to copy a non- 
program type file you may use the @:D (block dump/ 
command to change the file-type identifier in 


enter ‘9 to the ‘TO ? 8/9 prompt. Be careful that drive 
‘9’ is present or the computer will ‘hang.’ After the copy 
ss is complete you will be logged to drive 9. 
drive logging has been mentioned, note that if 
you are using two disk drives, one as drive 8, the other 
as drive 9, you may use Dos Plus to work with both. 
To change the drive you are currently logged to, enter: 


@8 <RETURN> 
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or 


89 «RETURN» 


as appropriate. After logging to a given drive, all fu- 
ture disk operations with Dos Plus will be performed 
on that drive. To work with the alternate drive you must 
log to it with the correct @ < number >. Also note that 
this is automatically done when you use the copy func- 
tion (*) and enter the appropriate drive number to the 
"TO ? 8/9 prompt. 

Want to verify a program that is at a location other 
than the start of BASIC? Type: 


@:V'FILENAME',$<START ADDRESS><RETURN> 


This is primarily useful if you have disabled the auto-ver- 
ify function of Dos Plus. Since verifying large saves can 
be time consuming, you may wish to disable the auto-ver- 
ify on saves or copys from within Dos Plus. You do 
this by changing the DOS.BOOT program which loads 
DOS PLUS. Alternately, you may POKE the appropriate 
location as is listed in Table 1. The @:V (verify) com- 
mand enables you to verify saves or copys as you see fit. 

Some additional commands: 

@ —Read error channel 


Program 
in the 
FAST LANE 
= 


Finally! 


Learn 
Assembly 
Language 
Programming! 


© Commodore's Assembler 

* Merlin 64 Assembler 

• Kid Assembler (included FREE in book!) 

• Learn to use opcodes, operands and everything 
else to program in machine/assembly language. 

® Watch your program run at warp SPEED! 


Only $14.95 at your favorite book or computer store or order 
direct (include $1.50 for shipping and handling — California 
residents add 6% sales tax). 


Dealer Inquiries Invited 
MAILTO: . 


(nicrocomscribe 


8982 Stimson Ct., San Diego, CA 92129 
(619) 484-3884 


Resder Service No. 185 
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/filename — Load a program at start of BASIC 

%filename — Load a program at its load address 

filename — Save a program from start of BASIC 

(will auto-verify unless disabled) 
f filename —Load & Run a program at start of 
BASIC 

#<nnnn> —Give hex number for decimal input 

$<nnnn> —Give decimal number for hex input 

@Q —Disconnect Dos Plus 
These commands work as they do in previous Wedge 
programs. The hex and decimal number conversions use 
16-bit arithmetic, meaning that the largest values returned 
Right justification 
nal input. This means that SABCDE 
BCDE, etc. 
е among you and the true hacker 
supplied that 
are null routines. These are: @:1, @:2. and @:3. All 
three merely print a carriage return and jump to BASIC 
at SE386. You may revector these commands to your 
own custom routines by changing the last three jump 
addresses at the very end of the DOS Plus machine lan- 
guage to the addresses of your routine, Characters en- 
tered with these commands will be in the system input 
buffer at $0200 and are terminated with a zero byte. Your 
routines should return to BASIC with а JMP 
struction, not an RTS to DOS PLUS. 


will be taken as 
For the hard to ple: 
types, three command structures have beet 


Commodore 64”! 
Programming 
Made Simple 


pp. 360 

Learn to program! David A. Lien has taught 
thousands of people BASIC programming and 
introduced them to writing custom software. 
Hands-on instructions in a simple, comprehensive 
and even humorous style make learning fun. With 
Learning Commodore 64 BASIC you саг enjoy 
the full powers of your C-64! 


Order by calling TOLL FREE 800-854-6505 (in 
Calif. 619-588-0996) or send $14.95 plus $2.00 
($3.00 foreign) for postage and handling. Visa and 
MasterCard users, include card # and expiration 
date. Mail to: 
CompuSoft" Publishing 
535 Broadway, Dept. 270585 
El Cajon, CA 92021 


Reader Service No, 204 
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The DOS.BOOT program contains several POKES that 
are user modifiable, These addresses and their functions 
are outlined below. 

РОКЕ 53230,001 : 1 
POKE 53012,008 : d 
РОКЕ 51329,096 : 9 


auto-verify 0 don't auto-verify 
ault drive at power-up 

"ER CASE Printer Sec. Addrs. 
lower case Printer Sec. Addrs. 
verse video on directory header 
146=no reverse video 
same as above 
color of hex numbers in DUMP/MODIFY 
same as above 
color of ASCH digits in DUMP/MODIFY 
(this combination looks best on my amber 
Taxan. Alter to your tastes —use ASCII num 
ber for color code, not Commodore color 
codes, i.c.. 5 white, 28 -гей, 144=black, 
etc.) 

By POKEing these locations you can, with the appro- 
priate values, alter Dos Plus to your own tastes. Any, 
or all, of these locations can also be changed direc 
from the keyboard should you so desire. Merely POKE 
the location with the value you wish to substitute. This 
will save you from having to run the loader program 
to make the changes. 

Well, there you have it—a balanced set of tools all 
wrapped in one tight package that won't steal precious 
space from your BASIC programs, Since Dos Plus takes 
up all but two of the locations at $С000 - SCFFF, you 
will most likely find a conflict in memory usage with 
some other utility that you like to use. Experienced ma- 
chine language programmers will be able to get around 
this by relocating these utilities and patching them to Dos 
Plus with the supplied hooks. If it is beyond your pres- 
ent programming skills to implement such a patch, you 
will find the inconvenience to be more than outweighed 
by the usefulness of Dos Plus. Who knows? After a time 
you may wonder how you ever got along without it! 
Shortly after 1 wrote Dos Plus. 1 completely destroyed 
the directory tracks on a CP/M disk on which I had the 
only copy of a compiler I was writing. Using the BLOCK 
DUMP/MODIFY function of Dos Plus, 1 was able to 
reconstruct the directory tracks and thus recover three 
months' worth of work. 

Writing Dos Plus has been an educational experience 
for me. I hope that using it will prove to be a pleasur- 
able and educational experience for you. 

For those who wish to patch their own machine lan- 
guage routines to Dos Plus, or are merely curious or 
want to learn more about assembler, I will supply copies 
of the source code for Dos Plus. Since this amounts to 
over 30 pages of heavily commented hardcopy I will have 
to ask that you help cover the cost of paper. Send $1.50 
and а self-addressed, stamped manila envelope to: Den- 
nis Muscatelli, R.D. #1 Box 543, Morrisdale, PA 16858. 

I wish to express my deepest thanks to Professors Wil- 
liam Englebret and Gene Schlossberger at The Penn- 
sylvania State University for their critical comments and 
assistance with debugging. O 

SEE PROGRAM LISTINGS ON PAGE 98 


РОКЕ 53040,018 : 


POKE 53063,018 
POKE 50999, 144 
РОКЕ 51069.144 
РОКЕ 51057.005 
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ON-COURT TENNIS 
Gamestar 

Commodore 64 

Disk, joystick; $29.95 

Anyone who doesn't think compu- 
ler games have come a long way 
since Pong ought to try a few sets 
of On-Court Tennis. It's hard to im- 
ügine two games based on the same 
sport being more different. 

On-Court Tennis features fluid an- 
imation, highly sophisticated compu- 
lerized opponents in the solitaire 
mode, and true-to-life strategy. It’s 
a far from rectangi racquets 
hitting a square “ball.” In fact, the 
hardest part about learning to play 
this sports simulation is the way it 
shatters preconceptions. 

‘The most radical change is that the 
joystick is used to select the desired 
stroke, not move the athlete around 
the screen. In effect, On-Court Ten- 
nis is a strategy, as opposed to an ac- 
tion, game. 

The display shows the court in 
three-quarter perspective, with the 
serving player at the bottom of the 
screen. As the onscreen character 
tosses the ball into the air, the com- 
puterist moves the joystick to start the 
volley. The direction in which the 
stick is pushed determines the place- 
ment of the shot. Hitting the action 
button produces an especially hard 
serve. 

The computer automatically posi- 
tions the racqueteer into position to 
return a shot. The main challenge, 
therefore, is timing the swing and 
choosing the specific stroke, The 
gamer can pick a flat shot, lob, top- 
spin shot, slice, or drop shot. Wheth- 
er the ball goes left, right, or straight 
ahead depends on when the player 
swings. 

The meticulously accurate ball- 
shadow isn't just window dressing. 
It’s the principal guide to timing a 
racquet stroke. This can be tricky, 
since the shadow is in a different po- 
sition, relative to the ball, depend- 

ing on whether the onscreen player 


READER SERVICE NO. 191 


is in the far court or the near court. 

Four robot foes are ready to bat- 
tle the computerist in a sing! 
a three- or five-set series. 
ponent has strengths and weaknesses 


Fleet System сап Г 
check any docu- 
ment against а 
70,000 word dic- 
tionary on the 
flip side of the 
disk (without ex- 
iting the program) | 
and highlight all 
suspect words. 
READER 


and favors a particular style of play. 
“Ivan Messier,” for example, plays 
the baseline and boasts a terrific 
serve. “Jimmy Orr,” on the other 
hand, roams the entire court and de- 
pends most heavily on a superb fore- 
hand. All four are programmed to 


Trolls and Tribulations (see page 71). 
READER SERVICE. NO. 193 


vary their skill as the human player 
gains mastery of the game. 

The playing surface also affects the 
difficulty level. The ball bounces true 
on a hard court, goes faster on grass, 
and slows on clay. 

Nov are strongly urged to be- 
gin by trying one set on clay using 
the baseliners. On-Court Tennis 
very demanding game even at i 
iest setting, and the first few rounds 
of play are bound to be error-filled 
and highly frustrating. This is one 
game that definitely repays the in- 
vestment of a couple of praci 
sions. If all else fails, watch the com- 


puter play itself to get some hints. 

On-Court Tennis is truly а land- 
mark computer entertainment. pro- 
gram. It takes a fresh look at a sub- 
ject, video tennis, which many con- 
sidered totally played ош. This out- 
standing disk proves them wrong. 

Gamestar, 1302 State Street, San- 
ta Barbara, CA 93101 (phone: 805- 
963-3487). —Arnie Katz 


FLEET SYSTEM 2 
Professional Software, Inc. 
Commodore 64 
Disk; $79.95 

What kind of word processor can 
you expect from a company whose 
latest program was Trivia Fever? Be- 
fore tossing off a flip one-liner, con- 
sider this: the company is Profession- 
al Software, whose venerable 
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The Complete Book on 16.99 


A Survival Guide to the 


|. 1541 Disk Drive Telecommunications 
г i A 40 + page book that will help you get started with your 
ША 2.40, page book and comes complete m Modem. How to use it and how to access a BBS. Com- 
DE MIS E ` $6.99 puserve, Dow Jones as well as up and down load. 


541 Super ROM $39.95 
E] 


Fast Save Load Verify. also Save with Replace is 


Improved. 
Fast Scratch and Validate. тр h РРА 
an 5 * Two times faster, Eight times faster 
10 Second Format with Verity When used with Turbo 64 which is included 


No more Drive Head rattling | Я ue 
during Format or Error Reading * 1541 Super ROM is 100% Compatible * Easily installed in Minutes 


M APALLO соғев там 


APALLO Does it All. This program is the latest generation of 
copy programs. It will do everything the $39.00 and $49.00 pro- 

rams will do and more. It Copies ALL drive errors, bad tracks 
and sectors, non-standard format, bad syncs, and half tracks. 
We feel this is the best program of its kind available... 


ыы: № 


* Copy Protected Disk * Copy Unprotected Disk 


MSD Sure Copy Ts = 


* Format a Disk 
At last a complete utility package for the MSD Dual Drive. This « Change Disk Name * Rename а File $39? 5 
18 the first MSD utility program that does it all. The man = Quit * View Directory 
menu options include: Sure Copy will put all errors automatically on disk: 20, 21, 23, 27 and 29's. ! 


N-CODER 519.95 
the machine » C-64 
* Translates any machine language program into easy- language manipulator... tpt 
to-read Engish descriptions with complete explana- ) Label Maker 
ions of each command! The pertect companion  / | 
complete notations of al important memory | ^ program to D-CODER! 

Eu o by the program! (SID, VIC, MOS, АК Choose one to one million labels... 
ht Allows you to easily mai changes in ma- 
chine language programs... right on the disk! 

; 


* Rewrite ability allows code to be altered 514.95 
and then rewritten directly to the disk! 
* Features sector-by-sector scroling * On-line Instructions 
assembly language display of machine 
nguage programs! * Allows Fall Editing 
raton of ASCI text equibalents lor easy 

Spotting of embedded text strings! * Works wi i 
id s io; me ED o 'orks with all Standard Printers 
need to be an |. ое соте ва their ML LI This Program will even put your 
* Byte splitter for easy spitting of decimal Disk Directory on Labels for you 

dresses into low byte-high byte format! 


= MegaSoft Limited 


зета Canada orders must be o US 
Dolars VISA — WASTER CARD — COD. E 


32005 & H on ai озен 


Р.О. Box 1080, Battle Ground, Washington 98604 
Phone (206) 687-5116 • BBS 687-5205 ane: Hours Computer to Computer aj 
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64 AHOY! 


TURBO 64 


boot copies on ай your disks. This disk also includes: 
‘Auto Run Boot Maker 


Turbo 64 wil turn your 1541 into a super fast and efficient disk drive. Loads 
programs five to eight times faster, works with 99% o! your basic and machine 
language programs. The master disk allows you to put unlimited Turbo 64 


‘Auto Run Воо! Maker will load and auto run your basic or machine language programs. 


$19.95 


ОР SECRET TUFF 


$19.95 


тоз 20,21,22,29,278 29 
I Single Tracks 

Read Disk Errors 

Ya Track Reader-read and select 
Ya track 


Disk Logger-Finds starting wack 
sector, start and end addresses, 
Disk Match-Compare any two 
diskettes. Byte for Byte 

New Wedge-Easier to use DOS 


Va Track Formatter-Format a wedge. 
disk with Va tracks, This is heck: 

Where Ine nox! protection ола Ces pua 
schemes are coming from. 

DC MODE DNE Unacrateh-Restore а scratched 


assembler/disassembler For 
your 1541 

The Doc-Disk Doctor that reads. 
code under errors 

Sync Maker-Place a sync mark 
оп any track out to 41. Аво 
used for protection. 

Sync Reader-Check for Sync 
bits on any track out to 4 
Change Drive NoChanges 

drive number (7-30). 


View RAM-Visual display of the. 
freo and used sectors on 
diskette, 

Read/Write Test-1541 
performance test 

Repair a track-Repair a track. 
with checksum errors. Reads. 
code under errors and restores 
та 
Fast Format-Format а disk in 
just 10 seconds (with verity!) 


SOFTWARE 


HRNDBLIDH 


THIRD EDITION! NOW AVAILABLE! 
I you're tired of being harassed by protected software and too many copy 
programs, then this is the book for you! This 224 page manual covers the 
‘gambit from legalities to protection methods to step-by-step back up pro- 
‘cedures, Now you can learn both how to protect and unprotect sofware! 
The techniques covered include copying cartridges to tape or disk, tape pro- 
tection, and disk protection. Disk protection covers error no.'s 20, 21, 22, 23, 
27 and 29 plus single track formatting, header modification, header swapp- 
ing, half track reading and writing, reading and writing modified bit densities, 
formating illegal tracks/sectors, sync writing and more! The Third edition ex- 
plains, tells how to detect and how to write them with included software. 
Eloven useful utilities and many protection listings! Our disk analysis programs 
tevoal the protection methods used on your originals. A diskette with all soft- 
ware is available for a minimum extra chargo. This may not be the only book 
your should have for the C-64, but it is certainly the one book you should 


not be without! 
C64 Book опу $1995 US 
Book & Disk of all programs see $29.95 US 
Ме 20 book... Сап. & Tapes only $9.95 US 


THIS MANUAL DOES NOT CONDONE PIRACY 


| wan GAMES 


AUTODIALER 


1-Ашо Dial wil automatically dal a set of numbers you choose, 

2-Review Numbers wii review numbers that ware answered by a computer. 
3-беуе Numbers will save numbers where a computer antwered. 
4-Hardcopy of Numbers wii print out st of numbers where a computer answered. 
S-LOAD Numbers wil load in numbers to continue where it left off 


6-Continue will pick up dialing where it was interrupted 


$29.95 
KARTRIDGE KRACKER 


NOW you can own this unique and powertul too! 
which will allow you to dump the contents of 8K 
and 16K cartridges onto disk! But what's really 
great is that you can also RUN the cartridges pro- 
grams without plugging in the cartridge! the 
KRACKER gets YOU INSIDE the cartridge! Put 
all your favorites on disk and get rid of the clut- 
tor. This package provides your with tho software 
and hardware needed to get started. Program оп 
disk included. (Some cartridges require use of ox- 
тета! RAM not included) 


The Original 


Book of Facts 
UNLOCK THE MYSTERIES 
ОР THE COMMODORE 

— Simple Instructions. 

—Easy step-by-step examples 

—Tricks you can do your 
first day 

—Introduction to color, sound 
and much more 

—Includes a routine to protest 
your own programs 

—NO MATTER what your 
experience, the Original. 


Book of Facts is 
56.99 


BULLETIN BOARD 


Set up and operate your own bulletin board with one or two disk drives, This 
опе has ай the features and you can customize it easily yourself. - 


1-RUN MEGASOFT BBS 9-WRITE OPENING MESSAGE 
2-CREATE MEGA FILES 10-READ LOG 

3-ADD TO SYSOP'S CORNER 11-CYCLE LOG 

4-NEW SYSOP'S CORNER 12-READ DOWNLOAD FILE 
5-READ MESSAGES 13-SCRATCH DOWNLOAD FILE 
8-ЗСЯАТСН MESSAGE 14-ADD TO OTHER SYSTEMS 
7-СҮСІЕ MESSAGES 15-САЕАТЕ OTHER SYSTEMS 
8-НЕАО SYSOP MESSAGES 


The Advanced 
Book of Facts 


EXPLORING 
YOUR COMMODORE 
—How to use a machine 
language monitor 
—Tips on how to unprotect 
your software 
—Advanced protection for 
your own programs 
—Fuli size reference charts 
—How to design your own 


menus and more... 
56.99 


Enclose Cashiers Check. Money Order. or Personai 


Check. Allow 14 days lor deiery. 2 1o 7 days for 
phone orders. Canada orders must be in U S 
Dollars VISA — MASTER CARD — COD 


"SHIPPING: $2.00 
| 
| 
| 


Soft Limitea 


Р О. Box 1080. Battle Ground, Washington 98604 
Phone (206) 687-5116 » BBS 687-5205 а 


2 559.95 
Меда 


Hours Comp 


y to Computer 


= 


Programs for C-64 $2.00 8 8 H on al orders 
‘Sonware Submissions invited 
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0430 21 


ISSUE /1—JAN. 84 54.00 
64 v. the Peanut! Telecommunications? 
‘Tales of the Commodore! And ready 
to enter: Multi Draw 64 Graphics Sys- 
tem! Interrupt Music Maker/Editor! A 
Peek at Memory! Sequential Files! 


ISSUE #5—MAY 784 $4.00 
Future of Commodore! Inside BASIC 
storage! Memory management on the 
VIC & 64! Spreadsheets! And ready 
to enter: Math Master! Air Assault! 
Biorhythms! VIC Calculator! 


ISSUE /9—SEPT. '84 $4.00 

ram your own text adventure! 
Build a C-64 cassette interface! Vid- 
co RAM! And ready to enter: Sal 
Diver! DOS! Sound Explorer! Castle 
of Darkness! Base Conversions! 


ISSUE #13—JAN. 785 $4.00 
VIC/64 OS exposed! Sprites! 1541 de- 
vice # disconnect switch! Ghostbus- 

And ready to enter: Ultra Mail! 
Music Tutor! Alice in Adventureland! 
Midprint! To the Top! 


ISSUE #2—FEB. '84 $4.00 
‘Mlustrated tour of the 1541! Artificial 
intelligence! Synapse's (hor Wolosenko 
interviewed! And ready to enter: Music 


Maker Part Il! Sc 
Night Attack! Rel 


Manipulation! 
Files! 


ISSUE #6—JUNE '84 $4.00 
Game programming column begins! 
Program generators! Rupert on input: 
ling! Memory management continues! 
And ready 10 emer: ost Time forthe 
64 & VIC! Alpiner! Sound Concept! 


DUE /10—OCT. u $4.00 
C-64 Graphics programs! Bit- mapped 
graphics! Joystick programming! And 
ready to enter: VIC 40 Operating Sys- 
tem! BAM Read & Print! Emerald Ele- 
phant of Cipangu! Lawn Job! 


SUE #14—FEB. '85 $4.00 
Printer interfacing! Multicolor sprites! 
Modems! Bulletin boards! Theory of 
game design! And ready in enter: Fu- 
avia! VIC Eraser! Insur: 
ance Agent! Telelink 63! 


ISSUE #3—MAR. '84 $4.00 
^ of the 64! Printer interfac- 
ing for VIC & 64! Educational soft- 
ware series begins! And ready to en- 
ter: Address Book! Space Lanes! Ran- 
dom Files on the 64! Dynamic Power! 


ISSUE #7—JULY '84 $4.00 
MSD Dual Disk! Database buyer's 
uide! Training your cursor! Screen 
displays! File Sleuth! Users Groups 


And ready to enter: Renumbering! 
Checklist? Math Defender! Brisk! = 


ISSUE /11—NOV. '84 $4.00 
Music programs & keyboards for the 
64! Graphics feature continues! And 
ready to enter: PTE word processor! 
Block Editor! Alternate Character Set 
for the 64! Tunnel of Tomachon! 


ISSUE #15-MAR. 85 $4.00 
side the Plus! Commodore DOS! 
And ready to enter: Routine! Pro- 


= Old 
Frumrable Function! Automatic Line 
оз.! Home Budget! Salmon Run! 


ISSUE /4—APR. 784 $4.00 

and Easy Script tulorials! 
Printer interfacing continues! Laser- 
disc! And ready to enter: Apple Pie! 
Lunar Lander! Name that Star! Low- 
ег case descenders on the 1525! 


ISSUE 48—AUG. 784 $4.00 
Choosing a word processor! Compu- 
tational wizardry! Creating your own 
word games! Sound on the 64! And 
ready to enter: Micro-Minder! Direc- 
tory Assistance! Terrible Twins! 


ISSUE #12—DEC. "8454.00 
Buyer's guide to printers! 1525 printer. 
tutorial! Custom characters! User 
Guide to KMMM Pascal! Diving into. 
BASIC! And ready to enter: Construc- 
tion Co.! Space Patrol! Cross Ref! 


ISSUE #16—АРК.'85 $4.00 
Assembly language column begins! 
Programming the joystick! 1541 disk 
drive alternatives! And ready to enter: 
Hop Around! Faster 64! Booter! 
Elecheck! BASIC Trace! Space Hunt! 


mmm mmm mm a m | 


Send coupon or facsimile to: ing: 
Ahoy! Back Issues ee Please eon Me in Following: 

Топ International Inc. — Copies of issue number 

45 West 34th Street — Suite 407 Copies of issue number. 


Enclosed Please Find My Check or 
Money Order for $. 
(Outside the USA please 
add $1.00 for every copy) 


http://www.oldgamesitalia.net/ 


oldgamesitalia.net 


REVIEWS 


WordPro was among the first office 
quality word processors for the C-64. 
Their latest entry, Fleet System 2, 
easily outclasses WordPro, for it 
packs an onboard spelling checker 
and several other distinctive features 
that are handy in an office environ- 
ment. 

Business users will appreciate the 
choice of viewing a 40-, 80-, or 120- 
column display. (The screen scrolls 
horizontally when you're keyboard- 
ing in the wider modes, which are 
llent for preparing heavily tab- 
ulated reports.) A setup program that 
is run prior to the first time you use 
the word processor allows you to 
pick the colors of the screen's bor- 
der and background as well as the 
text. Regrettably, the display lacks 
automatic word-wrap. Words get cut 
off at the right column and are con- 
tinued on the next line, which re- 
stricts onscreen readability. There is 
one consolation, When working in 
40-column mode, you can “prev! 
the document and sce a vertically 
scrolling 80-column display of the 
document's ultimate appearance and 
the effects of all formatting com- 
mands. (You cannot write and edit 
while previewing, however.) 

While composing this review with 
Fleet System 2, | was considerably 
dismayed to see some of my snappi- 
est sentences abruptly vanish into the 
Twilight Zone. Whenever I pressed 
the return key while the cursor sat 
on an existing line of text, everything 
between the cursor and the right side 
of the screen disappeared. My spir- 
its were soon lifted, however, by the 
discovery of a feature called the “ex- 
tra text” area, which accommodates 
as many as 450 screen lines of text 
that can be manipulated in several 
practical ways. While learning the 
system, for example, you d 
а "help" file into this area and flip 
back and forth between your ongo- 
ing document and a list of commands 
and functions and their respective 
keystrokes. Frequently used words, 
addresses, even whole chunks of text 
can be kept here and inserted into the 
ongoing document. This is accom- 
plished by designating abbreviations 
for them in the extra text area. For 
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this review, I reserved the letters “od” 
to indicate the words “ongoing doc- 
ument.” While writing the above sen- 
tences, I merely typed the f1 key, the 
letter “a” (to indicate I wanted to “ap- 
pend” a phrase from the extra text 
ion) and the letters “od”. Text 
stored here can also be automati 
ly inserted into blank space within a 
document, which serves to facilitate 
the rapid printing of personalized 
form letters. 

When you're working in the m: 
text area, a status line that looks like 
X:F:1:S:N : reminds you of 
the current editing mode. The (1 or 
RUN/STOP key works like a clutch. 


Press fl and the Е lights ups; then 
hit X to enter the extra text area. A 
similar two- or three-keystroke pro- 


cess is also engaged to conduct op- 
erations such as marking a range of 
lines to be copied, erased or funneled 
off to another part of the ongoing 
document. A range is marked by 
moving the cursor down to highlight 
the chosen text, but you can only 
highlight whole lines. If only half the 
line is to be transferred or erased, 
you must use the "paragraph split" 
command to shove the other half 
down to the next line. This is the 
most awkward aspect of editing with 
Fleet System 2. Another common 
editing operation, shifting between 
insert and overwrite modes, is swift- 
ly executed by tapping the f3 key. 

Cursor control is limited to hop- 
ping to the top of the screen, begin- 
ning of the document, or down to the 
next line. Of course, you can glide 
freely around the current screen via 
the cursor keys, but cannot skip di- 
rectly to the end of the immediate 
screen or the document, or flip to the 
next or previous screenload. You can 
"speed-scroll" through the text, but 
this still isn't as useful as the ability 
to flip screens and is also rough on 
the At least it is easy to delete 
the next word or sentence, in which 
case the program highlights the text 
and offers you a chance to bail out 
before consigning the offensive text 
to extinction. Fleet System's format- 
ting commands look familiar: one ог 
more lines contain marks such as 115 
(left margin is set for five spaces), 


which can be embedded throughout 
à document to change centering, jus- 
tification, and other formatting fea- 
tures. Underlining and other printer- 
supported features can be addres 
and you may even indicate Spanish 
accent marks if using a dot matrix 
printer. (Compatible printers are 
listed in the setup program’s menu 
and encompass a Tange of twenty- 
three popular machines including the. 
FX-80, TTX, Gemini, Brother, Oki- 
data 82, TP-1, and the Commodore 
printers.) 

Fleet System's major selling point, 
à 70,000 word dictionary, is on the 
opposite side of the program disk and 
can be accessed without exiting the 
word processor. It rapidly checks all 
the words against this dictionary and 
one created by the user, then high- 
lights all “suspect” words. These may 
be ignored, added to the user diction- 
ary, or corrected on the spot, (The 
user dictionary can hold up to 12,000 
words.) After saving the document 
and exiting to BASIC, you may avail 


SOFTWARE EDGE" 
Stop playing “Hide-and-Seek” with 
your Disk software! Let your commodore 
64" "memory" do all the work for y. 
with MASTERDISK*. Easy Меп, 
Guides make everyone a "pro" in 1 day! 
Here's a small "PEEK" at SOME of the 
POWER of PRODUCTIVITY at your fin- 
gortips 
* à SORTED Master Catalog of ALL your 
дз: Names. ID's, File into, etc 
* List any File/Dish/1Din seconds, 
‘any of FIVE WAYS, 
+ Transter ML-Programs or Files from Disk 


2 Stop disaster betore it stri 
duplicate D's ast, without 

4 Restore accióentallyscratched files in 
а flash, with VERIFICATION that hey re. 
ок 

* Works with 1 or 2 Ores (1541-type) 
with or without Printer Commodore ог 
Asci). 

+ All this + MUCH MORE, for just $29.95 
SPECIAL Wandy-ReTerence Card for 
HEX/ASCIU/ Binary-to- Decimal 
FORMULAS - only $2 with ord 

ali phone orders) 


($1 for 


MINUTES. includ- 
лд Formatting?! —and it's FREE with 
MASTERDISK®: 

‘Send Check or Money Order 1o: 
INTEGRATED-SOFTWARE 
‘SYSTEMS 
P.O. Box 1801 
Ames, ІА 50010 
VISA/M C/C OD. call (615) 233-2992. 
9am-9 рт M-F. 9am-1 pm Sat & Sun (Central) 


A33 $3 Sipping/plus $2 Foreign. COD. 
ПА Residents add 4% Sales Так 
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yourself of some intriguing features 
in the options program. A frequen- 
cy and statistics report will list all 
selected words and the number of 
times they appear. You'll also be in- 
formed of the number of different 
words, average word length, num- 
ber of sentences, and other stati. 
that may or may not be significant 
to you. (You don't have to access this 
program for the most practical such 
option: two keystrokes will instan- 
taneously summon up a precise word 
count at any time.) 

A single document may be up to 
eight or nine pages in length, and 
files can be linked to simultaneous- 
ly print a document that was broken 
into several files. Saving and load- 
ing files is a simple process, and the 
program supports one or two disk 
drives. Headers, footers, and page 
numbering, Search and Repla 
ling labels and other standard fc 
tures are effectively implemented, 
and Fleet System has a couple of fea- 
tures that are less common. You can 
load sequential files saved by a data- 
base or other program, convenient 
for preparing the data to be used in 
form letters and other mail merge op- 
erations. Numeric tabs simplify 
aligning columns of numbers con- 
taining decimal points. While in nu- 
meric mode, you may add or subtract 
columns of numbers, You ca 
total all the numbers іп a pai 
or range of lines, an unusual and 
creative option. 

Fleet System is casy to learn and 
operate. The manual has a lucid tu- 
torial for beginners; old hands will 
prefer to consult the index and flip 
to the appropriate page in the refer- 
ence section. Because the program 
doesn't have enough cursor control 
"shortcuts" and makes range-setting 
à relatively awkward process, it is ill- 
suited for composing term papers, 
essays, or anything demanding inten- 
sive revision. Fleet System 2, with 
numerous features that emphasize 
business-oriented word processing, 
is more valuable in an office where 
the workload includes extensive 
preparation of tabulated and colum- 


. Inc., 51 
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Needham, MA 


Fremont Street, 
02194 (phone: 617-444-5224). 
—Shay Addams 


SUPER PRINTER UTILITY 
PROGRAMS 
Cardco, Inc. 
Commodore 64 
Disk; $39.95 

The newest addition to Cardco's 
Cardware software line, this disk 
contains such nifty entries as screen 
dump utilities, a banner headliner, 
rudimentary word processing and 
mailing list programs, a calculator, 
a screen drawing program, and a 
sprint print printer buffer. Also in- 
cluded are file conversion, BASIC 
program cross reference, 24K file 
printer buffer, and index generator 
programs, On the flip side is a utility 
for viewing the screen images also 
found on this side of the disk. 


Afioy! 
FHhagi 


Sample screen dumps. Ahoy! logos 
generated with banner headline utility, 
READER * 


The Super Printer Utilities pro- 
gram, the most impressive of the lot, 
allows you to program into the 
C-64's memory specific data about 
the type of printer you're using. It 
also provides several utilities for ex- 
ecuting screen dumps, initializing 
and exiting keyed routines, ASCII 
screen dumps, reverse screens, and 
à host of other useful POKEs and 
SYS commands for using the feature 
of the program. Once loaded, the 
miliar “ready” prompt appears on the 
screen, telling you that this data is 
now in memory. One nice feature is 
that you can specify in which block 
of memory you'd like to store this 
printer data and command sequence. 
You're given a choice of $C400, 
5С000, $9400, $7400, or $5400, 
This is useful in avoiding "address 
conflicts" when programming in ma- 
chine language. Once you've chosen 
the load address, the POKE values 
and SYS commands for that 
are displayed. You're also gi 
option of printing this information 
out for future reference, if desired. 
For example, if $C400 were chosen 
as the load address, the correspond- 
ing command list would read: 


Screen Dump (Hor.). SYS 50176 
Init Keyed Routines. SYS 50179 
Exit Keyed Routines YS 50182 


Screen Dump (ASCII) 
Screen Dump (Vert.) 
Reverse Sc 
Reverse Character 


SYS 50185 
YS 50188 


50195, C 


Force Flag... POKE 50196, F 
CKO! Enable POKE 50197, КЕ 
Output Mode. POKE 50198, OM 


Device # : 
Secondary Address . 
Width (Hor.) 

Color Mode (Vert.) 
User Screen Enable 
Lores Start P. 
Hires Start Page 
Color Start Page 
Prntr Type (ASCII) 
Non-ASCII (ASCII). 
2x2 Color Dots (Vent). 
4x2 Color Dots (Vert). 
Keypad Definitions. 
Utility Programs 


POKE 50199, DV 


POKE 50201, W 
POKE 50202, 
POKE 50203, UE 

«POKE 50204, LO. 

POKE 50205, HI 
POKE 50206, CO. 
.POKE 50207, PT 
POKE 50208, N. 


Examples of the screen dumps 
possible are shown herewith. Each 
of the image dumps was executed 
with a simple SYS command: one 
problem I encountered, however, 
as the frequent crash of the pro- 


gram when trying to dump more than 
one screen. І was able to return to 
the selection menu sometimes—on 
most occasions, though, the screen 
would scroll with a “FORMULA 
TOO COMPLEX ERROR" message 
and I couldn't recover from the crash, 
no matter what I did. This meant I 
would have to shut off the C-64, turn 
i on, and reboot the program 
from scratch. If it only happened 
once or twice, I wouldn't even men- 
Чоп it, But since it was the rule rath- 
er than the exception, be aware that 
this program has a definite tenden- 
cy to self-destruct! 

I've also included some dumps of 
the "BANNER HEADLINER" pro- 
gram contained on the disk. You're 
given a choice of "Gothic" or “mag- 
netic" type styles, and a choice of 
short or tall letters. Once these choic- 
es have been made, you may enter 
up to 254 characters of text or punc- 
tuation and dump it to your printer. 
Possible uses for this feature include 
making banners (happy birthday, 
welcome home, etc.) or signs for fly- 
ers (garage sale today, no parking) 

The other utilities are of the “bare 
bones” school. The word processor 
has no refinements whatsoever, nor 
does the mailing list utility, They are 
useful, however, for extremely light 
dutie: 

‘The 44-page instruction manual is 
good as far as it goes, but contains 
wful lot of ambiguity. A case in 
point is the print-dump command 
listing above. Take a look at the last 
line: “Utility Programs....50417." Is 
that POKE 50417 or SYS 50417? 
While it may not seem like a big 
deal, if you need tc ess one of 
these features, typing in а SYS in- 
stead of a POKE may result in a 
crash. Another question unanswered: 
is it possible to dump. say. a play- 
screen from Zaxxon? It probably is. 
but / don't know how—the documen- 
tation fails to make any mention of 
such abilities. 

Users of Cardcos Write Now! 
word processor will like the program 
however, since it includes utilities to 
convert ASCII to Write Now! format 
and vice versa. Additionally, it will 
allow you to convert Write Now! files 


oldga 
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ssion over a modem. 

All factors considered, I was un- 
derwhelmed by the Super Printer 
Utility Programs. The crashes I men- 
tioned and the lack of complete doc- 
umentation made the disk tedious to 
use, and not at all up to Cardco's us- 
ual fine standards. 

Cardco, Inc., 300 S. Торе 
KS 67202 (phone: 316- 
—Tom Benford 


STAR SG-10/15 PRINTERS 
Star Micronics, Ini 
56-10: $299; SG-15: 5499 

Гуе used а Star Gemini 15Х dot 
matrix printer for the last two years, 
and come to regard it as a reliable 
workhorse, proven through thou- 
sands of hours of use to be rugged, 
dependable, and flexible for a great 
number of applications. So when Star 
announced its new, improved version 
of the 15Х, called the 56-15, I knew 
1 had to get my hands on one and put 
it through the paces. 

What Star has done is make a good. 
thing even better. All the features of 
the older models have been retained, 
but enhancements have been made. 
Even the throughput speed has been 
increased by a full 20%! The added 
features make the SG-10 and SG-15 
the printers many users have been 
waiting for. 

G-10 and SG-15 are direct 
nents in the company's prod- 
uct line for the Gemini 10X and 15Х. 
The difference between the two new 
models is the carriage size, the SG- 
10 having a 10" carriage, the SG-15 
а 157. (The one other difference is 
the 15% 16K buffer—see below.) 
Since 1 often have occasion to use 


similar to its predecessor, the 15Х. 
The function controls are of the “soft- 
touch" variety, replacing the push- 
switches of its older brother. That's 


the only obvious physical difference. 
The other improvements are more 
subtle, but they show their worth as 
soon as you activate the printer. 
The Gemini 10Х and 15Х were 
equipped with 4 DIP switches incon- 
veniently located on the back of the 
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printers. These were used to select 
the resident character set on power- 
up, linefeed on or off, end of paper, 
and other printer functions. On the 
new 56-10 and 56-15, the DIP 
switches have been moved to a more 
a sible location: the left side of 
the printer. But in addition to making 
them easier to reach, 8 DIP switch- 
үс been added to the original 4, 
Why the extra switches? To handle 
the configurations for the enhanced 


The SG-15 comes with a 16K print 
buffer ndard equipment, dou- 
ble the capacity of the earlier Gem- 
ini 15X. This means that the printer 
itself can store up to 16K of infor- 
mation and hold it in memory until 
printed, freeing up the computer for 
other uses while printing continues. 
This humongous buffer proves its 
worth when using word processing 
software or printing out lengthy 
BASIC program listings. An optional 
buffer board is available for the 10, 

Both SG models feature (as did 


Uni-Kool 


DISK DRIVE FAN 
FOR COMMODORE 


Designed to work with Commodore Disk 
Drive Models 1540, 1541, and 1542, tho 
quiet C-100 fan enclosure moves cool, 
filtered air through the top vents of the disk 
drive cooling the drive and thereby reduc- 
ing the misalignment problems caused by 
heat build-up. A custom filter keeps room 
dust from entering the disk loading open- 
ing. This greatly increases the life span of 
the disk drives, and decreases the maint 
nance required to keep the drive function- 
ing properly. Only $39.95 plus $2.00 for 
shipping and 116уас 
insurance 

Money 

Order, 

Chocks > 

or C.0.0. 

Only 


6-month warranty 


Uni-Kool (503) 476-1660 


909 Williamson Loop, Grants Pass, OR 97526 
T 


BETTER DUST PROTECTION 
FOR VIC & COMMODORE 


Can Solve All Your. 


RESET SWITCHES 
2 Versions lor Every Need 
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SG-10 & 15: near letter quality. 
READER SERVICE NO. 201 
a ааа НА 


their predecessors) friction and trac- 
tor feed as standard, allowing you to 
use tractor-feed paper for listing and/ 
or rough drafts as well as single 
sheets for correspondence. These 
new models also allow hex dumps 
and downloadable character sets. On 
internal ROM are international char- 
acter sets for French, German, En- 
glish (Britain), Danish, Swedish, 
Italian, and Spanish. These sets con- 
tain umlauts, pound signs, circum- 
flex letters, and other characters and 
punctuation indigenous to the speci- 
fic language. Additionally, you m: 
custom-design your own characters 
and load them into the printer, use- 
ful for including logos and other 
“personalized” touches in your print- 
outs. Of course, the entire graphic 
character set is available for printing 
out listings of your programs exact- 
ly as they were entered. Both the SG- 
10 and SG-15 are capable of printing 
out ultra high resolution bit image 
graphics as well. Several varieties of 
condensed, expanded, and enhanced 
print are also possible on either of 
these models. or course, the printer 
interface you utilize has a lot to do 
with how many "tricks" the printer 


Normal Star mode. 

Bold print sample. 

Near Letter Quality. 
scored sample 


Emphasized mode. 
Expanded. 


Condensed print aode. 


Condensed with underscore. 


Condensed bold print. 


Print samples from SG-10 and 15. 


will perform, but with the added DIP 
switches, it's easy to get the most out 
of just about any of the popular print- 
er interfaces. Both the SG-10 and 15 
come with Centronics parallel input, 
but either can be had with RS-232 
serial input as an option. 

A few words about the documen- 
tation are in order. The 235-page us- 
er manual is superb, providing infor- 
mation on everything you need (or 
want) to know about DIP switch 
tings, control characters and func- 
tions, changing defaults —the whole 
nine yards. The only thing I took ex- 
ception to was the continual mention 
of "IBM mode." The printers have 
two basic operational modes: Star 
and IBM. Either is selected or dese- 
lected by the DIP switches. This is 
to accommodate the broadest po 
ble market of users, and apparently 
the folks at Star figure these two 
printers to be hits with Big Blue us- 
ers. Included in the manual are ta- 
bles and pin-out assignments for Ap- 
ple, TRS-80, and CP/M-based com- 
puters, but nary a word for us Com- 
modore folk! Get with it, Star! Don't 
you realize that there are more Com- 
modore 64s out there than the other 
brands combined? 

A host of useful provisions are in- 
cluded in the printers’ operating sys- 
tems, such as the capability for su- 
perscripts, subscripts, variable hor- 
izontal spacing control, multistrikes 
for boldface, underlining, and itali- 
cizing. These printers are truly a 
dream to use for word processing 
with the inclusion of these useful and 
powerful features. 

Both of the SG printers use inex- 
pensive multipass two-spool nylon 
ribbons. I've always liked this fea- 
ture about Star's printers, s 
ribbons are cheap and ге 
able at most stationers. 

I've saved the best and most im- 
pressive feature for last: near letter 
quality (NLQ) printing. As the name 
implies, this mode emulates the print 
image of a daisy wheel printer or tra- 
ditional typewriter. It does this so 
well, in fact, that unless you look 
very close at the printout, you'll think 
the product of a daisy wheel 
Print speed is reduced by about half 
in this mode, since the print head 
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makes two passes for each character. 
(The first pass prints out the “normal” 
or draft-mode character, while the 
second pass fills in the open area be- 
tween the dots and embellishes it 
somewhat, adding serifs and other 
finishing touches.) In the past, I've 
used the Gemini for my rough drafts 
and a daisy wheel for the finished 
product. The print quality is so good 
in the NLQ mode that Гуе become 
a "one printer user" again. Anybody 
want a used daisy wheel printer? 
Star Micronics, Inc., Pan Am 
Building Suite 3510, 200 Park Ave., 
New York, NY 10166 (phone: 2 
986-6770). —Tom Benford 


TROLLS & TRIBULATIONS 

Creative Software 

Commodore 64 

Disk; $24.95 

(See screen on page 63) 
Longtime joystick jolters often 

feel there's nothing new under the 

sun. Their problem is that they're 

looking in the wrong direction. A 

look under the street will reveal 


Trolls and Tribulations, Creative 
Software's sewer-based action game 
featuring superb music and graphics 
and a veritable cesspool of activity. 

Your eight-lived troll must 
erse a scrolling multilevel maze, 
shooting cretins and eschewing 
skulls, buzzards, and spiders while 
collecting treasure. Each move must 
be planned with care; blindly leap- 
ing from peak to precipice will send 
your troll plunging into the lapping 
waters below. That is a fate you 
want to reserve for the cretins that 
descend from above. Your troll's 
shots turn them into eggs which you 
attempt to shove to a watery grave 
before they hatch. 

At the onset, you choose from 
novice, intermediate, and expert 
levels of play by opening the cor- 
responding door. Your troll then en- 
ters the first set of horizontally 
scrolling mazes. Locked doo 
pear at the end of all sections, only 
to be opened by the key wi you 
acquire within the maze. Keys and 
treasures are collected by leaping 


from ledge to ledge or dropping to 
lower shelves. Strategically placed 
trampolines will a in reaching 
higher levels. Players may at first 
be inhibited by the need to vault 
moving skulls and buzzards while 
within low-ceilinged tunnels, but 
your troll cannot hit his head. 

While the lower levels are quite 
masterable, the higher ones will 
prove a true challenge. The progres- 
sion from easiest to hardest is grad- 
ual enough to maintain interest as 
ability increases. 

I do have two bones to pick with 
an otherwise delightful game. First, 
there is no way to bypass earlier sec- 
tions and begin deeper in the maze. 
Second, high score is provided, but 
no means of saving the information 
isk (the instructions cite mem- 
itations). Who cares about 


ory 
keeping track of high score in a 
single sitting? 
Creative Software, 
Caribbean Drive, Sunnyvale, CA 
94089 (phone: 408-745-1655). 
—Scott Kincaid 


230 East 


DITT 


DITTODISK 


has been tested and found to be capable 


HAVE YOU BEEN DRIVEN CRAZY 
TRYING TO BACKUP YOUR EXPENSIVE 
SOFTWARE? NOW YOU CAN RELAX! 


пыз S 


64 is a utility program that 


VIC & 64 


BE A COPY СА D (CASSETTE AIDED DUPLICATOR) NOW 
САН MAKE BACKUP COPIES OF ALL THE COSTLY. 
NON-SAVEABLE CASSETTE PROGRAMS YOU BOUGHT. 


OUA BACKUP V1.0 UTILITY PROGRAM WILL LET YOU 


MAKE DUPLICATES THAT RUN. 


BACKUP V1 OWILL WORK WITH A STANDARO SK 
UNEXPANDED VIC MEMORY EXPANSION IS REQUIREO 
TO COPY PROGRAMS LONGER THAN JK BYTES. 


TAPE ORDERING 
INFORMATION 
$24.95 


ADD $2 00PER ORDER 

FOR SHIPPING. 

WE ACCEPT VISA, MASTERCARD, 
CHECKS. MO. 

СОО AD0$3 00 EXTRA. 


Calilornia Residents, Add 6% 
Sales Tax to Orders 


of copying most protected disks produced 
by the major software houses. A notable 
attribute of this copy program is its 
lack of a large manual. There are no 
menus and no disk analysis routines. 
The screen prompts will be all that 
you'll need to get you through 99+% of 


your cogying. 
n Eis д 
Dealers inquiries invited!!! $3435 


"7" SOFTWARE PLUS 


(916) 726-8793 


6201C Greenback Lane 
Reader Service No. 219 


THEBEST 
YOUCANBUY 


Citrus Heights, CA 95610 
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PFS:FILE 
PFS:REPORT 
Software Publishing Corporation 
Commodore 64 
Disk; File $79.95, Report $69.95 
PFS:File, along with your C-64, 
disk drive, and optional printer, 
forms a fairly full-featured database 
management system. You design the 
record format with full use of cur- 
sor control, delete, and insert keys. 
You have the top 21 lines to desi 
nate as many as 50 fields. Not 
enough? Hit a key and you get a 
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blank screen. More and more—up 
to 32 screens full. Be careful with 
those long record formats, though; 
if you fill out every field in a 32 
screen record, only five records will 
fit on your diskette. Realistically, for 
a simple name and address file, you 
will be able to store about 500 
records. If the addresses are short, 
you might even store Files max- 
imum of 1000 records on your 
diskette. A “percent full" reading at 
the bottom of the screen will give 
you some idea of how you're doing 


New Technological Breakthrough ! 


ULTRABYTE 
DISK NIBBLER 


The Ultimate Bit by Bit 


Disk Duplicator 


For The Commodore 64 and 1541 Disk Drive 


ULTRABYTE DISK NIBBLER COPIES 
ALL SOFTWARE EXCEPT ITSELF 


SATISFACTION GUARANTEED 


Return for refund within 10 days 


if not completely 


«гр 


Introductory Price 


satisfied 


plus $3.00 Shipping and Handling 
MASTERCARD, VISA, CHECK, or M.O., 
Foreign Orders or COD Add 

Сай. Add 6.5% (5260) Sales Tax 
BACKUP COPIES $2000 PLUS $3.00 SHIPPING 


2.00 


Based on new proprietary Disk Operating System (DOS) that 
reads and writes bits on the disk independent of format. This 
process, called nibbling, treats disk errors, extra sectors, 
renumbered tracks and other protection schemes exactly the 


same as ordinary data. 


* Simple to use. Just load and run 

Fast. Copies entire disk on single 1641 in 8 minutes 

* One easy step. No separate analysis or error production 

* Uses revolutionary Track Scan Technology to make 
an exact replica of the original disk. 


Write or Call 24 Hour 


Order Line 


ULTRABYTE ( 818 ) 796 - 0576 
P.O. Box 789 La Canada, CA 91011 


Reader Service No. 233 


SOFTWARE AUTHORS PLEASE WRITE 
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From File's main menu, you can 
choose to design a new format or 
change an old one, add data, search 
through the records you have 
entered and update those with 
mistakes, print or delete records in- 
dividually or in groups, or return to. 
BASIC. As you work to create the 
perfect design for your records, use 
the Insert function cautiously. The 
Clear key is right next to the Insert 
key; hit Clear and all your design 
work will disappear. The designers 
of File should not have made clear- 
ing the screen so simple. When you 
design your second database, with 
a different record format, you will 
need to use a new diskette. if you 
have lots of short lists to keep, File 
can eat up your blank disks. And 
don't forget to format those blank 
data disks before you load File; it 
has no capability to format them for 
you. 

When you want to search for a 
particular record, File can match as 
y fields as you specify, You сап 
ask for an exact match (full first and 
last name), a partial match (a word 
or characters in the middle of an en- 
try), a range of numbers (all zips 
from 32900 to 32950), or a “not” 
match (all records that do not match 
the search specifications). Searching 
for a record based on the contents 
of the first field will never take more 
than three seconds. Use any other 
field and the search may take much 
longer. File does not allow you to 
save your search specifications to 
disk. 

Getting a printout of your records 
is easy. First tell File which records 
to print using the same options that 
are available for a search. Then tell 
it which fields to print from each 
record and whether to print h 
field on the same line or a new line. 
This option allows you to print mail- 
ing labels; however, since File can 
only print fields in order, the possi- 
ble formats for your records are 
limited. File can sort as it prints, but 
it can only sort on one field. File lets 
you store up to eight print formats 
including search specifications that 
you can use or edit at a later time. 

A critical feature of any database 
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Quality For Your Commodore 64 


ORDER BY PHONE AND WE PAY FOR YOUR CALL! 
TO ORDER CALL 612 922-0516 - де 50 OFF EVERY PHONE ORDER 


The printer enhancer and full cx cu buffer for the 
Commodore 64" 


w Gives you C of your printer while printing 
m Enhances the speed of your printer 


= Provides the 1525 and 801 printers with true 
descenders and underlining 


SPECIAL $19.95 


(ІТЕНІТІ 


Fully Menu Driven 


Auto Answer - Auto Dial - completely supports 
modems of this type 

On Line Printing — enables you to print while the 
computer is in terminal session 


Full рювати and downloading — enables you to 
send files to and from the disk over the phone 


NOW ONLY $29.95 


GRAPHIC PRINTER CABLE 


The Graphic Printer Cable is the truly universal 
graphic parallel printer interface for the Commodore 
, S x 64”, and Vic-20™ computers 


и For virtually all Centronics-Parallel Dot Matrix 
Printers 


® An intelligent 2k buffer is standard 


я Software Configurable allowing Commodore™ 
printer emulation 


External printer selection switches 


NOW ONLY $89.95 


e Ца 


The fastest, most reliable and easiest-to-use copy 
prograam for the Commodore 64”. 


Contains a TRUE INTELLIGENT NIBBLER which 
copies all the information on a disk and even the 
newest copy protection including half tracks and 

track 36 + 


FULLY AUTOMATIC! There are no parameters to set. 
You don't even need to swap disks when using two 
drives. 


REVIRGINS DISKS rather than erasing them, and 
also contains a utility that automatically backs up 
any data disk and removes all data errors in just two 
minutes. 


NOW ONLY $39.95 


Seven day money back guaranteed. 


O-MOUEMN 


The 100% 1650 compatible modem, Order it with 
Q-Term and get both for only $69.95 
Seven day money back guaranteed. 


STAR SG-10™ printer 

with GPC ONLY $339.00 
Star SG-10 features 

= 120 CPS bidirectional-logic seeking printer 
= Full graphic-word processing features! 

= Near letter quality mode! 


One West Lake Street Suite 320 
Minneapolis, MN 55408 
(612) 922-0516 


Reader Service No. 216 


is the ability to redesign you data 
files. Inevitably, you will want to add 
а field to each record, rearrange the 
fields, or delete an unnecessary field 
10 make more room on the disk. File 
handles all these changes with no 
problem as long as your disk 
than 50 percent full. It is a pl 
not to have to retype dozens of 
records just because you have chang- 
е4 your mind about layout. File can 
only redesign four pages at a time, 
зо a five page form will require two 
passes. And redesigning a form is 
slow, oh so slow. 

One caveat—any new fields that 
are to retain their data must have 
labels identical to the old fields. File 
does something strange when you set 
up your labels (or field names); each 
one must end with a colon. When 
reorganizing a database, File mat- 
ches every character between one 
colon and the next. If you have u: 
ed a row of dashes to break your 
form into upper and lower hai 
File will think those dashes are 


of the label which follows them. This 
“feature” means you may want to be 
very careful (read: avoid) using a 
heading or any other text that is not 
actually a field name. 

Records can be deleted individ- 
ually during a search or in groups. 
Give File a set of search spec- 
ifications and tell it to delete; your 
data will disappear and free disk 
space will reappear. File numbers 
your records consecutively as you 
enter them. When some records are 
deleted, the others are not 
renumbered. Only if you redesign 
the form will the numbering be 
consecutive again. But after a 
redesign the records are numbered 
in reverse order, so you wil have to 
redesign the database twice to have 
the latest records numbered highest. 

File has no number crunching 
capability and only limited printing 


options. Get your wallet, here comes 
PFS:Report. Report takes your File 


database and lets you design and save 
up to eight report formats. A report 


A но] 
| i BAL is 
Бе 


1 дат в mgr 


Cursor location 


BAM (memory used 
Ruler (also message line) 

Word weapifustiticaticn fag 
‘Block marea 


x--z0"mcoos | 


Number of the cur 
L ` Name of the current tont 


unique program. 


— 


Create Your Own or choose from over 15 type styles provided in this 


Including: Gouhous English Shadou Manhattan 
Blook Itelic Stop Sept 
Bold Hairpin BYTE 3topbold 
Ix zw Pudsy Mirror иғорәртвап 16XeTOIe 


$39.95 


Overview of FONTMASTER 

word processor features: 

1) Powerful block manipulation 
commands (Cut, Paste, Move, Overlay. 

2) User - меду енесіз include (fonts, 
Super, sub scripts, underlining, bold face, 
ee) 

3) Up to eight different fonts can be used 
simultaneously. 

4) Many printing options such as page number: 
ing. ties, жото агар, right justification, and 

5) Eight disk МО commands (Save, Load, Verity, 
Erase, Etc). 


inc. 


3010 Arnold Road 


(913) 827-0685 
Salina, KS 67401 


Reader Service No. 224 
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organizes your fields into columns 
and prints them in spreadsheet for- 
mat. You can choose up to 20 fields 
to be printed as columns. Based on 
the contents of the first and second 
columns, Report can sort your data 
in ascending alphabetical order (A 
to Z) or in descending numerical or- 
der (1000 to 0). Report has a very 
powerful feature that lets you sort 
data based on key words in any опе 
field. This could really automate a 
research project; like redesigning a 
form, though, it is slow. 

Whatever page title you specify 
will be printed on each page of ihe 
report. The heading for each column 
will be the label of the correspon- 
ding field unless you specify some 
other heading. Report can give you 
the total, count, or average of any 
numeric column. Additionally, it can 
calculate subtotals, subcounts, or 
subaverages each time the entry in 
column one changes. If you just want 
the bottom line, Report will print a 
summary with totals only. 

If that's not enough, Report can 
also calculate across rows. Say your 
inventory list entries for price 
paid and selling price. Report can 
generate a column that shows profit 
(based on those two entries) for each 
inventory item. Up to three such 
“derived” columns can be contained 
in any report. Report, unlike File, 
will let you print columns in any or- 
der; they do not have to be in the 
same order as the fields in your 
database. 

The manuals for File (24 pag 
and Report (63 pages) are in the nice 
6% by 8” wirebound format that lays 
flat оп your desk. The chapters 
match the programs’ menus, and 
each chapter combines a tutorial 
with reference information. Each 
manual contains a quick guide that 
you can use to refresh your memory 
once you have learned the program. 
Screen representations rather than 
actual pictur 5 о the il- 
lustrations are not identical to what 
you'll see on the monitor. All the 
programs’ error messages are ex- 
plained, but this is hardly necessary 

Continued on page 84 
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COMMCOIDARIES 


PROGRAMMING CHALLENGES 


By Dale Rupert 


ach month, we'll present several challenges 
designed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 


Commodares, clo Ahoy! 
Р.О. Box 723 


Bethel, CT 06801 


We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be 
sure to identify the Name and Number of the problems 
you are solving. Also show sample runs if possible, 
where appropriate. Programs on diskette are welcome, 
but they must be accompanied by listings. Also tell what 
makes your solutions unique or interesting, if they are. 
You must enclose a stamped, self-addressed envelope 
if you want any of your materials returned. 

Your original programming problems, suggestions, 
and ideas are equally welcome! The best ones will be- 
come Commodares. 


short program to convert the string 
form of a date into a numerical decimal value. For ex- 
ample, if the user enters 1/1/85, the computer returns 
1985.0000. Since mid-year is around July 1. if the user 
enters 7/1/83, the computer returns 1983.5000. John 
points out that these 4 ial values would be easier for 
performing calculations involving time periods than the 
string versions are. He also reminds you to adjust for 
leap years! 


assignment statement whereas the MIDS function appears 
on the right. 

Your challenge is to write a subroutine to simulate 
the MIDS statement. The syntax is this: MIDS(XS,S.N) 
= YS. The result is that some or all of X$ is replaced 
by some or all of YS. Specifically, the first N charac- 
ters of Y$ are substituted for characters in X$ starting 
at position S of X$. The length of X$ must not change. 
The value of YS is unchanged. Some examples should 
help. 

Initially Х$=“ВОМ” and Ү$=“СО”. $ and № are as- 
signed the following values before your subroutine is 
called. The value of X$ upon returning from your sub- 
routine is shown. 


М-0 ог N»1 М=1 
GON GUN 
RGO RGN 
RUG RUG 


N may range from 0 to 255, and S may range from 1 
to the length of XS. If N is greater than or equal to the 
length of YS or if М is 0, then all of YS will be used 
(with the stipulation that the length of X$ will not change). 


Problem #17-4: Number Speller 

The user enters a number between one and one thou- 
sand, and the computer spells that value, For example, 
if the user enters 12, the computer displays “twelve.” 
If the user enters 235, the computer returns “two hun- 
dred thirty five." Anyone submitting thousand-item 
DATA statements will be sent to the back of the class. 


Problem #17-2: Printer Sentinel 

Here's a problem sent by R.W. Kober (Buffalo, TX). 
Write a subroutine to determine whether or not the print- 
er is turned on. If the printer is on, the subroutine re- 
turns immediately. If the printer is off, the subroutine 
5 “Тһе Printer Is Not On." The 
subroutine waits until the printer is turned on, at which 
time it returns to the main program. This should be a 
tidy, unimposing subroutine. 


Problem #17-3: MID$ Statement 

Some versions of BASIC contain a MIDS statement. 
Commodore BASIC allows only the MIDS function. The 
difference is that the MIDS statement (pronounced “mid- 
string") appears on the left side of the “=” sign in an 


First this month, a correction to the centering func- 
tion described in the January 1985 edition of Commo- 
dares, The correct definition for FNCE is DEF 
FNCE(X)=INT(20—X/2). Type X =LEN(A$) : PRINT 
TAB(FNCE(X) ); А$ to print AS centered on the cur- 
rent (40-character) line. Thanks to Milton Powell and 
Daniel Miller for pointing this out. 

As promised last month, we have solutions to Prob- 
lem #16-2: Quick Decimal from the originators of the 
problem. Programs from Jim Speers (Niles, MI) and 
John Prager (Bay City, MI) are listed below: 


1 REM PROBLEM 416-2 : QUICK DECIMAL 

2 REM SUBMITTED BY JIM SPEERS 

3 REM 

10 INPUTN$:FORT=1T04: A=ASC(MID$(N$,I,1)) 
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—48:Т=Т4+16^(4-Т)*(А+7*(А>9) ) : NEXT: PRINTT 


1 REM PROBLEM #16-2 : QUICK DECIMAL 
2 REM SUBMITTED BY JOHN PRAGER 

REM 
10 INPUT H$:N-0:LeLEN(H$):FOR J=1 TO L:A 
$=MID$(H$,J,1) 
20 K=VAL(A$)-(A$>"9")*(ASC(A$)-55) : N-N«K 
*16^(L-J):NEXT:PRINT N 


Jim's solution has the advantage of being a one-liner, 
but four hex digits must always be entered. John's pro- 
gram allows hexadecimal values of any length to be еп- 
tered, at the expense of an additional program line. 

By far the most popular Commodare in January was 
Problem #13-1: Starred String. The two most general 
categories of solutions are a) screen and printer compat- 
ible and b) only screen compatible. Programs which used 
cursor movements are of course not usable for direct 
printer output. The award for most unusual solution goes 
to Michael Hommer (Waukee, IA) for his program writ- 
ten in COMAL. Here's what it looks like: 


INPUT AT 2,4,35: "type in the string : " 
; instr$ 
star'string(instr$) 


// Procedure 


PROC star'string(instr$) 
DIM star$ OF 40, string$ OF 40 
string$:="* "s+instr$+" ж" 
star$:z"" 
FOR 1:=1 TO LEN(string$) DO star$:+"*" 
PRINT star$ 
PRINT string$ 
PRINT star$ 
ENDPROC star'string 


line prompts the user for an input. The sec- 
xecutes the "star string" procedure which is 
defined in the following lines. The FOR-DO statement 
does not extend past the end of its line. The program 
logic should be easily understandable with a little. study 
суеп for those who are not familiar with the language. 
Interesting solution, Michael. 

Examples typical of most other submissions are listed 
below: 


1 REM PROBLEM #13-1 : STARRED STRING (SC 
REEN ONLY) 

10 INPUT AS:PRINT"[DOWN]* "A$" *":FOR X= 
1 TO LEN(A$)+4:PRINT" [UP ] [UP ]* [ DOWN ] [DOW 
КІП ЕРТ |е"; : NEXT 


1 REM PROBLEM 213-1 : STARRED STRING (PR 
INTER/SCREEN) 

10 INPUT A$:FOR Х-1 TO LEN(A$)+4:X$=X$+" 
*":МЕХТ:РЕТМТ X$:PRINT"* "AS" *":PRINT X 
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Both of these programs are one-liners if you use ab- 
breviations and omit spaces. Variations on these themes 
involved using MID$ and LEFTS, and some programs 
called a star-printing subroutine. To give credit where 
it's due, here is a pseudo-randomly arranged list of read- 
ers with workable solutions to this and some of the other 


problems: 


Jimmy Toten (Hawthorne, CA) 
R.W. Kober (Buffalo, TX) 
Milton Powell (Portsmouth, NH) 
Daniel Miller (New York, NY) 
Kenneth Karow (Chicago, IL) 
Eric Biberhofer (Dundas, ONT) 


Dan Berger (Marshficld, WI) 
Fred Randall (Uxbridge. MA) 
Stephen Vanderhoof (Albany, NY) 
Mark Harris (Blue Springs, MO) 
Jim Root (Whimore Lake, MI) 


David Wright (New Bri 
Amie Friedman (Great 
Garrett Kearney (Cla 
Alan Christman (Romeo, MI) 
Bill Imrisek (Bancroft, ONT) 
Brian Wilcox (Coldwater, OH) 
Shawn K. Smith (Bronx, NY) 
Тит Stonis (Cranbury, NY) 
Mike Bouska (Williamsborg, KS) 


Greg Smisek (Lonsdale, ММ) 
Marcus Cooper, Jr. (Mililani, HI) 
John Immarino (Н; ND 
Greg Sheppard (Та vA) 
Michael Hooper (Tyler, TX) 
Harold Hughes (Robstown, TX) 
Ronald Sipe (Cincinnati, OH) 
John Bucy (Belpre, OH) 

Douglas Gristina (Florence, AL) 
Barry Friedman (No. Miami, FL) 
Steve Liggett (College Park, GA) 
Kurt Huebner (Anchorage, AK) 
John Prager (Bay City, MI) 
James E. Borden (Carlisle, РА) 
Todd Growney (Livingston, MT) 
Thomson Fung (San Diego, СА) 
Jon Phillips (Sierra Vista, AZ) 
Charles Foreman (Dayton, TX) 
Adolpho Rodriguez (Newark, NI) 
Robert Rice (Oak Park, MI) 
Doug Chapman (Belleville, KS) 
David Handwerker (Davison, МІ) 
Jeff Lambert (Honesdale, РА) 


Your letters indicate you enjoy solving the Сотто- 
dares. Occasionally readers ask for more challenging 
problems. Our goal is to present problems which can 
be solved with short to moderate-length programs for 
people with a wide range of interests and abilities. As 
always, if you have a problem that you have solved or 
would like solved, submit it so that we might dare the 
rest of the world to try it. Commodares will be as chal- 
lenging as you make them. 

Problem 813-2: Auto Run brought some hints, tips, 
and solutions from R.W. Kober (Buffalo, TX), James 
E. Borden (Carlisle, PA), Antoine Alary (Montreal, 
QUE), Todd Growney (Livingston, MT), Jim Zdunic 
(East Leroy, MI), Richard M. Bertke (Perryville, MO), 
and William Н. Fossett of Hacker's Hardware (Р.О. Box 
7933, San Diego, CA 92107). 

Jim Zdunic's program listed below is used for auto- 
loading the next program from tape. After typing and 
saving his program, you activate it by typing RUN, 
NEW, and then SYS 7669. From then on, the next tape 
program will be automatically loaded and run whenever 
you type SYS 7669. 


1 REM PROBLEM #13-2:AUTO RUN (FOR TAPE) 
2 REM SUBMITTED BY JIM ZDUNIC 

3 REM 

10 FOR A-7669 TO 7679:READ B:POKEA,B:NEX 
T:END 


20 DATA 169,1,141,198,0,169,131,141,119, 
2,64 
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ATTENTION COMMODORE 64 OWNERS 
DID YOU BUY THE WRONG PRODUCT? 


МЕН PAY YOU FOR YOUR MISTAKE!" 
PRINTER INTERFACE BLUES 


No graphics, doesn't work with your software, Bad aspect ratios, no 
available buffer, well you wouldn't have these problems with the Micro- 
World M W-350. We'll give you $59. off the list price of $129. for that 
strange interface that’s causing you trouble 


LAST YEARS BACK UP SOFTWARE 


Everyone has Back-up software roduces errors, but will it back up non-standard 
sectors, reproduce density frequenc tions alter the number of sectors, copy sin 
syne bits, and reformat a single track? We don't >. Send your antique back and 
recie it toward the “New Revised Clone Machine" at We've added ап 

) dual drive Clone Machine also available for only $39.95. Upgrade your products to 
the latest state of the art today 


Other software products available from Micro-W Include: Mr. Tester diagnostic software 
Fantastic Filer data base and or, Sereen Dumper 64, Font Factory/Sign 
writer for custom type a Word educational soft watch for our. $49MIDI 
interface that will conn pur C. 10 4 to musical instruments. 


1342 loute 2. 
CALL- 201 - 838-9027 МІггЕСУУ/ Butler М 09405 
or write us at DISTRIBUTING, INC = Е 


Reader Service Мо, 227 


Call us the modern way— 
on Ahoy!'s Bulletin Board System! 


th а modem, you can call Ahoy/s Bulletin Board System any hour 


И your computer is equipped wi 
electronic mail with other Commodore users or download 


of the day, any day of the week to ехсһа 


files like the following 
* Editorial calendar for * Corrections 10 programs * Program disk and 
upcoming issues and articles subscription information 
4 Excerpts from future edi- © Detailed descriptions * Classified 
tions of Scuttlebutt of back issues advertising 


Set your modem for 300 baud, full duplex, no parity, 1 stop bit, 7 word length, and dial away! 


System Configuration of Ahoy! Bulletin Board System: 


C84 and 1650 Automodem MSD 80-2 Dual Disk Drive Impact Printer Vortex | BBS Software о Color Monitor 
Commodore Business Machines MSO Systems. Inc. > Horizon Corporation Corporation 
03 327, New York, NY 10028 u 
2. Ек Grove Village, IL 60007 


Phone: 3125933211 


CSS Monitor Stand Superstand 1 Computer Stands 45933 & #0040 
Computer Support Services А World of Plastic, Ltd. Royal Seating Corporation 
Ро в; эз ot P.O. Box 753 
Santa Barbara, CA 99102 MA 02165 Cameron, TX 76520. 
пе: 617.964.8370 Phone: 817-697-0421 


Phone: 619.968.3040 


NEW NUMBER (AS OF APRIL 15): 
718-383-8909 


If you use the Wedge with your disk system, you may 
autorun a BASIC program by typing “IUP ARROW] file- 
name" where [UP ARROW] is the key next to the Re- 
store key. James Borden and Antoine Alary pointed out 
that you may type the following to autorun a BASIC pro- 
gram without the Wed, 


LOAD "[FILENAME]",8 : [SHIFT-RUN/STOP] 


The program below from Hacker's Hardware is the 
most versatile and easiest to use for ci BASIC 
autoloader file. The user specifies the loader’s name (for 
example, LDR) and the name of the BASIC program 
to be loaded (for example, TEST). Then the program 
creates the file LDR and puts it on the same disk as 
TEST. To autorun TEST, enter LOAD *LDR",8.1 ог 
using the Wedge, simply enter %LDR. 


5 REM -- CREATE AUTO-RUN LOADER — 
10 REM COURTESY OF HACKER'S HARDWARE 
20 INPUT"LOADER NAME";LN$ 

30 INPUT"NAME OF PROGRAM TO LOAD";B$ 
40 IF LEN(B$)>16 THEN END 

50 IF LEN(B$)=16 THEN 70 

60 B$-B$4CHR$(160):GOTO 50 

70 OPEN 1,8,2,LN$+",P,W" 

80 READ XZ:IF X%=256 THEN 100 

90 PRINT#1, CHR$(X2);:GOTO 80 

100 PRINT#1,B$;:IF В$=""ТНЕМ CLOSE1:END 
110 B$-"":GOTO 80 

120 DATA 187,2,169,15,166,186 

130 DATA 160,0,32,186,255,32 

140 DATA 192,255,169,16,162,240 

150 DATA 160,2,32,189,255,169 

160 DATA 0,32,144,255,32,213 

170 DATA 255,134,45,132,46,169 

180 DATA 15,32,195,255,32,83 

190 DATA 228,32,89,166,32,51 

200 DATA 165,32,142,166,76,174 

210 DATA 167,256,139,227,187,2,256 


Mr. Fossett invites readers to contact him at the ad- 
anation as 


is problem. 

Пу two groups of solutions to Prob- 
Calc, those that POKE 631 and those 
it. (The 631 refers to the first location of the key- 
board buffer, for those of you who haven't memorized 
the memory map of the C-64.) First of all, some of you 
may have wondered, as did Michael Hooper (Tyler, TX), 
why would anyone want a program like this when the 
computer already performs calcul; y simply in 
the immediate mode? The answer is that this was in- 
tended to be a parsing problem, a task frequently en- 
countered in writing compilers and computer lai g- 
es. Although it took some serious work and some cle- 
ver programming to create some of the keyboard “buf- 
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fer-stuffer" solutions, those programs don't provide much 
insight into the parsing problem. Certainly no one would 
type or load a program to accomplish a task they could 
do without a program. 

The shortest example of a solution using the keyboard 
buffer was from Michael Hommer (Waukee, IA). The 
essence of this type of program is to POKE keystroke 
ASCII values into the keyboard buffer which begins at 
location 631. The number of keystrokes waiting in the 
buffer is POKEd into location 198. Once the BASIC pro- 
gram is run and returns to imme: mode, the com- 
puter reads the keystroke data from the buffer, just as 
it would if you had pressed those keys. 


1 REM PROBLEM #13-3:МІСКО CALC 

2 REM SUBMITTED BY MICHAEL HOMMER 

3 REM 

5 INPUTA$:A$="2"+A$:PRINT"=": PRINTA$ :M=6 
31:С=145:РОКЕМ,С:РОКЕМ+1 ,C: POKEM&2, C: POK 
EM+3,13:POKE198,4 


The 145's correspond to [CURSOR UP] keystrokes 
he ASCII value of the [RETURN] key. Other 


intermediate output on the 
haven't tried programming like this, you're in for some 
fun and interesting possibilities. Combine these keyboard 
buffer ideas with the autorun programs above, and your 
computer could get along without you for days at a time. 

Parsing is the process of bi g the input sequence 
into its components and identifying or arranging them 
So that the desired operations can be performed, Shawn 
K. Smith (Bronx, NY) and Greg Smisek (Lonsdal 
sent similar solutions as listed below. Theirs were the 
most compact programs. Other readers took somewhat 
the same approach. 


1 REM PROBLEM #13-3:MICRO CALC 

2 REM SUGGESTED BY GREG SMISEK 

3 REM AND ALSO BY SHAWN К. SMITH 

4 REM 

10 INPUT" EXPRESSION" ;C$:FORX=1TOLEN(C$): 
X$=MID$(C$,X,1) 

20 IF Х$="+" OR Х$="-" THEN C=C+VAL(N$) : 
№="" 

30 N$=N$+X$:NEXT:PRINT"THE ANSWER IS ";C 
*VAL(NS) : PRINT: RUN 


vant (Gainesville, FL) converted the key- 
into their BASIC tokens and POKEd them di- 
rectly into his BASIC program following a PRINT state- 
ment. Perhaps the most expandable approach is this one 
from John Prager (Bay City, MI). 


1 REM PROBLEM #13-3:MICRO CALC 

2 REM SUBMITTED BY JOHN R. PRAGER 
3 REM 

30 PN-1 


40 СЕТ A$:IF А$="" THEN 40 

50 IF А$>="0" AND A$<="9" THEN N=N*10+VA 
L(A$):CR=1:PRINT A$;:GOTO 40 

60 IF А$="-" AND CR THEN GOSUB 120:PN--1 
:GOTO 40 

70 IF А$="-" THEN PRINT A$;:PN--PN 

80 IF А$="+" AND CR THEN GOSUB 120:PN=1: 
GOTO 40 

90 IF А$="+" THEN PRINT A$;:GOTO 40 
100 IF A$<>CHR$(13) THEN 40 

110 GOSUB 120:PRINT"THE ANSWER IS "; 
": PRINT: RUN 

120 PRINT А$; :5=5+№РМ:РМ=1 :№=0:СК=0: ВЕТ 
URN 


John's solution properly handles an input such as —2". 
If you want to test the flexibility of your approach to 
this problem, see how easily you could modify your pro- 
gram to properly handle multiplication as well as addi- 
tion and subtraction. 

Problem #13-4: Data Lister was also a good parsing 


problem. The solution from Fred Randall (Uxbridge, 
MA) is listed below. His program is typical of several 
other readers’ approaches to this one. 


10 REM PROBLEM #13-4: DATA LISTER 

20 REM SOLUTION BY FRED RANDALL 

25 REM 

30 N=20:DIM D$(N) 

40 FOR Jel TO 20:D$(J)-CHR$(644J) : NEXT 
50 INPUT"+VIEW WHICH DATA";V$ 

60 L-LEN(V$) :X=VAL(V$) :X$=STR$(X) : Y2LEN( 
X$)4+1:Y$=MID$(V$,Y,L):Z=VAL(Y$) 

70 IF L=LEN(X$)-1 THEN PRINT D$(X):END 
80 IF Z= THEN Z=N 

90 IF Х<0 THEN Z=ABS(X):X=0 

100 FOR I-X TO Z:PRINT D$(I):NEXT 


We have room for one final micro-challenge. When 
are for proper syntax in a BASIC pro- 
gram? Ne Think about it. See you next 


month with a new round. O 


MOVING 


C 
THROUGH Color Maney 


Continued from page 22 

string you want PRINTed, converts the ASCII charac- 
ters to screen display codes, goes to screen memory, 
finds the current cursor position, and stores each char- 
acter code in the correct address. It does it all automa- 
tically, far faster than you could do it by POKEing the 
screen codes into memory yourself. 

But, as you know, part of that string can include “col- 
or" characters. For instance, CHRS(5) is the code for 
the color white. If you PRINT CHRS(5), every character 
PRINTed after that will appear white. 

Yet there is no screen display code for “white,” just 
reen display code for any of the other 
command characters, like iage returns, cursor move- 
ments, or inverse on-off. These command characters are 
like a mini-language, telling the PRINT command what 
you want done with subsequent strings. 

When you use a color command character, PRINT 
takes it as an instruction to PRINT all subsequent char- 
acters in that color. 

But where is color controlled? It can't be controlled 
in screen memory, since there are 256 possible charac- 
ters (include inverse characters) that can be coded. АЙ 
eight bits of each address of screen memory arc used 
just to determine which character will be displayed — 
is no bit left over for color. 
stead, color has its own map, which corresponds 
exactly with screen memory. In the 64, color memory 
starts at location 55296 and includes all 1000 bytes 
through location 56295. In the VIC with less than 8K, 


color memory starts at 38400 and extends through 38905. 
(Expanded VICs find color memory at 37888 through 
38393.) 


When you PRINT a red Q in the upper left-hand cor- 
ner of the screen, with the command PRINT CHRS(31) 
“Q”, BASIC goes to the first address in screen memory 
and stores the code for Q. Then it goes to the first ad- 
dress in color memory and stores the code for red. 

This is why the 64 can have a different foreground 
color for every position on the . Any position can 
be displayed in any of the 16 a le colors, because 
each screen position has a acter code in screen mem- 
ory and a color code in color memory. 

To see how this works, try this simple program. Line 
10 fills the screen with random characters; line 20 fills 
color memory with random colors. Here is the 64 ver- 
sion: 


10 SM-1024:FOR I-SM TO SM4999:POKE I,INT 
(256*RND(9)) :NEXT I 

20 CM=55296:FOR I-CM TO CM+999:POKE I,IN 
T(16*RND(9)) :NEXT 

30 СОТО 20 


And here is the unexpanded VIC version (for expanded. 
VICs, change the value of SM to 4096 and CM to 37888): 


10 5М-7680:ҒОК I-SM TO SM4505:POKE I,INT 
(256*RND(9)):NEXT I 

20 СМ=38400:ЕОК І-СМ TO CM+505:POKE I,IN 
T(16*RND(9)):NEXT 

30 GOTO 20 


Notice that because we POKEd the characters into 
screen memory, we could use the lowe: 
ner of the screen. The PRINT command 


of leaving the rest of the screen alone when it puts a 
character there. 

Now, you can е; see how we can accomplish high- 
lighting certain positions on the screen withour disturbing 
what is PRINTed there. We simply change the colors 
of that row in color memory, and regar of what 
characters are coded to appear on that row in screen 
memory, they will have the color we 
color memory. 

That is how the example program Menu works. The 
options are PRINTed on rows 5, 6, 7, 8, and 9, all start- 
ing at the fourth character from the left. No option is 
longer than 16 characters. So the movement routine 
tracks five different addresses in color memory, which 
correspond to the starting positions of the five options. 
These addresses are held in the array CO/n). 

When the player calls for a change in the current choice 
displayed, the variable NP is set to the number of the 
new position, and the variable XP is set to the number 
of the old position. 

To highlight an option, the routine at line 900 POKEs. 
the highlight color code into the sixteen color memory 
addresses starting at the address CO(NP). To put an op- 
tion back to normal, the routine at line 920 POKEs the 
regular color code into the sixteen color memory ad- 
dresses starting at CO(XP). 

Movement up and down responds to the f7 and 15 
keys: расе bar is used to select. 

The virtue of this program is that if you were chang- 
ing menus, the same routines could be used to change 
colors in certain positions on the screen regardless of 
what characters were displayed there. 

You will also notice that RUN/STOP and RESTORE 
are disabled at the beginning of the program. However, 
the program checks to see if RUN/STOP has been 
pressed — if it has, everything is set back to normal and 
the program ends. This is an example of how to keep 
the idiots savant from trashing the display. In this pro- 
gram, of course, it doesn't matter — but in the next one 
it does. 


COLOR CODES 
The color codes that you must POKE into color mem- 
огу аге identical to the color codes you POKE into the 


background color register to change the background color: 


0 = black orange 

1 = white brown 

2 = red light red 

3 — cyan dark grey 

4 = purple medium grey 
5 = green 

6 = blue 

7 = yellow 


By the way, you can't just PEEK into color memory 
to read what color is stored there. That's because only 
the lower four bits of 


80 АНОУ! 


http: 


tion are under control. The upper four bits contain gar- 
bage. So to read color memory accurately, you must 
perform the operation AND 15 with the number you find 
there to get rid of the high nybble (the highest four bits), 
like this: 


A=PEEK(CM+53)AND 15 


After that statement, the variable A would contain the 
code for the color displayed in the 54th byte of color 
memory. (Remember, the first byte is СМ +0, so that 
CM +53 is the 54th bute.) 


FAST HIGHLIGHTING THRU FAKERY 

The program Menu is slow. POKEing sixteen posi- 
tions in color memory takes time, and the response feels 
sluggish. 

But there's an easy way to speed things up on the 64. 
We use PRINT to change color memory without 
ing screen memsory — by fooling BASIC into think- 
ing screen memory is somewhere else. 

You may remember from earlier jaunts through the. 
video memory system that there is one location that tells. 
the VIC chip where screen memory is, and another lo- 
cation that tells BASIC where screen memory is. BASIC 
uses its number when it is PRINTing character codes 
into screen memory; the VIC chip uses its number when 
it is scanning to see what patterns to display on the screen. 

That means that if we tell BASIC that screen mem- 
огу is in one place, and tell the VIC chip that it's in an- 
other, BASIC can PRINT all day and the VIC chip will 
never see it— it will still be looking in its own place for 
screen memory. 

However, while BASIC is PRINTing invisible char- 
acters, all its color changes will be visible, because both 
BASIC and the VIC chip will be using the same color 
memory. 

The example program Fast Menu shows how this is 
done. The options are PRINTed in screen memory at 
1024, just as usual. But then the BASIC screen mem- 
ory pointer at 648 is changed from 4 to 60. This tells 
BASIC to PRINT things at page 60, or address 15360 
(that is, 60*256). 

The program then PRINTs one string, XCS, to set 
а row back to normal, and another string, HCS, to high- 
light а row. It does a whole row (except the last char- 
acter) each time, so that the option could be of any length. 

The strings consist of the color command character 
plus 39 commas. They didn't have to be commas. They 
could have been anything, including blanks. What mat- 
ters is that color memory is changed — we don't care what 

Continued on page 114 
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FOR THE C-64 


By Larry Murdock 


| ile puzzles, the predecessors of the more re- 
| cently popular cube games, were little plastic 
| boards on which were laid several small in- 

Ы. jterlocking tiles. Each tile or square had a 
number, à picture, or a letter of the alphabet printed on 
its face. When you received the game it was in order. 
You subsequently moved the pieces around to mix up 
the puzzle, then attempted to put it back in order. 

Tile Time is just such a puzzle. Type it in and SAVE it. 

When RUN, the puzzle will appear and а message at 
the bottom will read “JOYSTICK OR KEYBOARD 
J/K". If you select “К” the "cursor" can be positioned 
from the keyboard: up with an "A", down with a “7”, 
left with a “J”, and right with a 7.7 (see lines 7000 to 
7080). Hit the spacebar and the tile or tiles will move. 
If you wish to use the joystick, plug it into port number 
two (see lines 2000 to 2/30), If you want to move one 
tile, position the cursor on the tile you want moved and 
hit the fire button or spacebar. If you want to move more 
than one tile, position the cursor on the last tile you want 
moved and hit the fire button or spacebar. If you want 
to start all over, hit SHIFT and CLR/HOME simultane 
ously. 

Alter you respond to the “JOYSTICK” question, the 
en will read “MIX Y/N”. If you respond with a ^Y" 
the puzzle will mix itself with 50 quick random moves 
(you can halt the mixing process at any time, by hitting 
any key — see lines 4000 to 4200). If you respond with 
а “№ then you can “МІХ” it up yourself. 

The code is kind of interesting and you can have some 
fun changing it around. The machine code scrolling is 
POKEd in via DATA statements (see lines 9000 to 
49790). You can change the face of the puzzle to any- 
thing you want (see lines 290 to 3/0). The colors of the 
rows can be changed by altering the number codes in 
line 110. For younger players you can change one whole 
TOW to “А” 's and another to "B" 5, etc. If you don't speak 
well English you can change all the letters to numbers. 
If you confuse easily you can change every tile to the 
same thing so that no matter how mixed the tiles are, 
they will be in the г 
E PROGRAM LISTING ON PAG) 
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FOR THE C-64 


BY PHILLIP CASE 


ave you ever wondered how your com 
ter knows to display the letter “A” when 
told to—especially when all it really under- 
ЖЕ. I | stands is 15 and 0's? The answer lies 
something called the Video Character Generator or Char- 
acter Matrix, 
imply put, this is a Read Only Memory (ROM) which 
is filled with data that tells the computer what each char- 
acter in the alphabet is supposed to look like. 
Whenever the computer needs to display an "S." for 
example, it looks through the ROM until it finds the cor- 
rect data for displaying an "S" on the screen. And since 
this matrix of data is stored in ROM, it's ready as soon 
you turn on your Commodore 64. 
Suppose you could change the data in the character 
matrix so the computer would display your own char- 
acter set instead of the original. You could easily m: 
your screen characters appear in Old English, or even 
other languages such as Russian or Greek, complete with 
their special letters. You could define spe 
ters such as smiling faces, Pac-man, stars, etc. Imagine 
the impact of a game with a special character font to 


Now You Can Add 


A ARTIFICIAL 
че INTELLIGENCE 


To Your Programs Using a Powerful Combination 


Heres Your Chace to Profit by being on 
the Forefront, Write 5th Generation Software 


match the game theme. All this can be done. 

The ROM which stores this character matrix cannot 
be altered, but there is a vector in the Commodore 64 
which tells the computer where the ROM is. This vector 
is in RAM, which means it can be changed. 

Therefore, if we change the vector so it looks into 
RAM to get the character matrix, we can have our own 
character information right there waiting for it. The pur- 
pose of the Commodore Font Editor is to provide an easy 
interface to create character fonts. The program itself 
forward with few tricks. Type the program in 
slowly and try to understand each module as it is entered. 

Before trying to design a character font, first develop 
it on paper. This allows you to verify the consistency 
between letters before you go into the editor, First, make 
upa character matrix such as the one pictured here. Then 
define your ter within the 
box. Remember to leave one 
side column and either the top. 
or bottom row empty so your 
characters. won't touch each 
other on the screen. If, of 
course, you are defining a cur- 
sive font, you will want the 
chars легу to connect with some sort of standard so they 
look consistent 

Also, you should not leave blank columns if you are 

designing special symbols that require more than one 
character, like a pointing hand, 


USING THE FONT EDITOR 

The first thing the program does after you type “RUN” 
is to load the character area with the data that is stored 
in ROM. This takes about 30 seconds and is only done 
the first time you type “RUN.” If you stop the program 
and type "RUN" a second time, the program will not 
get the ROM characters. This is designed to prevent the 
Program from wiping out a font you've been designing. 
The program checks for this by looking at the top row 
of the *@” character (Screen code 0), so don't alter the 
top row of this character. 

After initializing the system, the program presents the 
main menu. From this point, you can go anywhere in 
the editor. 

Note: the character codes displayed and inputs re- 
quested are not ASCII. but rather the Commodore Screen 
Codes, given on page 132 of the C-64 Users Guide and 
page 376 of the C-64 Programmers Reference Guide. 

Also, the character buffer for the font editor is from 
12288 to 14335 (3000H to 37FFH). The program and 
variable areas from 2048 to 12287 (800H to 3000H). 
The program protects the character buffer from BASIC 
so your characters will not get wiped ош by accident, O 

SEE PROGRAM LISTING ON РАС! 
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Continued from page 12 
trol of your computer to you in case 
of lockup. Four RENEW programs 
will restore the BASIC program in 
memory before throwing the switch. 
The unit's two female serial ports 
permit the use of two printers, and 
s two-foot cord act an exten- 
sion to your serial bus. 

$24.95 postpaid from Master 
Software, 6 Hillery Court, Ran- 
dallstown, MD 21133 (phone: 
301-922-2962). 


BLUE CHIPS 

The Commodore Investor's 
Newsletter is offered free to Com- 
modore owners interested in play- 
ing the stock market. A copy can be 
obtained by sending a stamped and 
self-addressed business size 
envelope to Dr. Lynn Harner, 2011 
Central, Dodge City, KS 67801 
(phone: 316-227-8952), 


APPLICATION 
TEMPLATES 

Fabtronics has produced applica- 
tion templates for Microsoft's 
Multiplan for the Commodore 64. 
Current templates, priced at $11.95 


10 DISKETTES 


FREE. C-20 CASSETTES 


А subscription to the ‘Cassette of the 
Month’ gots you a tape or disk ful of 10 
quality Commodore 64 programs deliv- 
erod to you by first class mail every month. 
The documentation included will help you 
тип great utilities like "Word Processor, 
and ‘Budget Analyzer,’ or enjoy great 
e like 'Frogjump and ‘Caterpillar 

ауе FOR AS LITTLE AS 50 CENTS 


ж Limited offer * Subscribe for a year 
оп cassette and receive 20 Free С-20 cas- 
settes or subscribe for a year on disk and 
receive 10 Free 5% single sided double 


ity diskettes! PRICES 
TAPE DISK] 
118(25565) 89% 79% 


EVOGSSKS 26% 49% 
Бере | 7 ғ) 


Men Pes ast e% 


+ We'vebeeninbusiness tor 
‘vertvee years! aoquing 

* Over 4000 satied color 
computer owners 

* Commodore 64 requred 


s w? 


for documentation and software 
($6.95 for documentation alone). 
clude home budget, accounts 
payable, accounts receivable, inven- 
tory man; 


invoicin, 
Fabtroni 51 Quarry Street 
Brockport, NY 14420 (phone: 


716-637-6371). 

Cooperative Design is looking for 
individuals to write application ov- 
erlays (to be called Magnetic Tem- 
plates) for various C-64 spreadsheet 
and database programs. They will 
encourage users to modi! py. 
and distribute these programs, with 
each new user voluntarily mailing in 


payment. Authors will receive 25 
percent of all sales. 
Send a stamped and self-addressed 


envelope to Cooperative Design at 
129 Anthes, Box 138, Langley, WA 
98260 and you'll receive a catalog 
of available and coming templates. 
If you'd like submission guidelines, 
send a list of templates you could 
develop and templates you'd like to 
sec. 

Also available: blank cardstock 
Personal RAM boards which fit 
around the keys of your 64 or VIC, 
providing space for notes for parti 
ular programs. 
$9.95. 
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1200 BAUD MODEM 


ment with Commodore Inter 
to manufacture а 1200/300 bit-per- 
second modem with automatic phone 
dialing and other advanced features. 
It will be marketed by Commodore 
as the Commodore Modem/1200 
(model 1670). 

The new modem will be compati- 
ble with the 128, 64, Plus/4, SX-64, 
and VIC 20 computers. As well, it 
will feature Hayes compatibility and 
à built-in speaker that will allow users 
r the call being dialed. 
ics, Inc., 8100 McCor- 
Skokie, IL 60076 


mick Blvd. 
(phone: 312-982-5010). 


ment, check ledger, and | 


READER SERVICE INDEX 


E 
Company No. 

п Abacus Sofware n 

C4 Access Software m 

S — Alphacom, Inc. 196 
Apad 183 
Apropos Technology wo 
Batteries Included . 
Batteries Included. . 
Hig, Bytes 

9 Bytes & Pieces, Ine, 

Si CVE Online 

68 Carden, I 

62 CompuSoft Publishing 

87 Computer Centers of America 

89 Computer Ed. 

15 Computer Warehouse 

63 Creative Software 

№ Datamost, Ine, 

27 The Ennon Corporation 

Ж Entrepo 

Mo вх 

Сз вх 

№ Full Circle Software, Inc. 

688 Gamestar 


9 General Electric Company 
9 General Electric Company 


12 Genesis Computer Corp. 
20 Indus Systems 

32 Innovative Organizers, Inc. 
67 Antegeated-Sofware Systems 
59 меен Software 

6 John Wiley & Sons, Ine, 
49 Kyan Software 

2 Master Software 

64.65 Мерей Limited 

е Microcomseribe 


0 MicroProse Software 
77 Micro. Distributing, Inc. 


м lutions 
” 

м Ohio Computer Services, Ine 
Ж) Parsee Research 

6з Professional Software, Inc. 
40-45 Protecto Enterprizes 

тъ Rad 


эз Skyles Electrie Works 
46 Skyles Electric Works 
S3 Software Design, Ine. 


SubLOGIC Corporation 
хх T&D Sofware 


60 ThorvEMI Computer Software 
м Төмеу Computer Products 

т (нав 

69 — Unimeasure, Inc. 

29: Wedgewood Rental 

MH Netec, Ine, 


The publisher cannot assume responsibility 
for errors in the above listing. 
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A NECESSITY 
FOR YOUR DISK SYSTEM 


DISK 
SLEUTH ' 


A DELUXE DISK ORGANIZING SYSTEM 
for the Commodore 64 that creates a 
DATA-BASE of your disk program library. 


Creates an ALPHABETIZED DIRECTORY of 
all your disks and disk programs. EASY TO 
USE-Reads your disks. Shows WHERE TO 
FIND EACH PROGRAM. Gives COMPLETE 
PROGRAM INFORMATION, Including YOUR 
OWN PROGRAM COMMENTS. PRINT-OUT 
DIRECTORY, View, or Search. PERMANENT 
DIRECTORY - 1541 or MSD. WINDOWS for 
all disk information. 


$3495 Postpaid. Commodore 64 only. California 
residents add 696 sales tax 


> Nth piGIT 
SOLUTIONS 


3243 Arlington Avenue, No. 195 
Riverside, CA 92506 


Reader Service No, 237 


CVC Online, number 1 in erotic telcoms. 


Memberships: 
Now Only 
$12.95 


We're 

proud to 
announce 

the first 
UNCENSORED 
videotex and 
computer | 
communicati Уз 
ний 


For a FREE broci 

call (212) 582-2006 

or write to CVC Online. 
801 Second Ave, N.Y., М. 


10017 


jader Service No. 236 
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Please note the following omissions/er- 
rors in previously published Ahoy! pro- 
grams: 


MANSION DISPLAY SETUP (March 1985): 
The following line did not appear in print. Please in- 
sert и: 


52723 DATA "[s U]X" 


Some of you may have been confused by the extra open 
bracket in lines 52404 to 52408, and the extra close brac- 
ket in line 1 to 52517. These extra brackets appear 
not by mistake, but as characters which are printed to 
the screen. 


OLD ROUTINE (March 1985): 
We neglected to mention that the first byte of the pro- 
gram is 8000 and the last byte is 808C. 


HOME BUDGET (March 1985): 
Line 380, mangled during printing, should read as fol- 
lows: 


380 PRINT"[DOWN][DOWN]MONTHLY TOTAL'"TAB( 
14)Q+AA+BB 


We regret any inconvenience these errors may have caused 
Corrections to Ahoy! programs and articles are posted 


on our bulletin board (718-383-8909 as of April 15) as 
soon as they are spotted 


since all the messages are in plain English any 
Together PFS:File and PFS:Report make a good 


PFS: Report 
adds number- 
crunching and 
printer options 
to File. 
READER 
SERVICE 
NO. 236 


e you all the important database features and 
throws in a powerful extra. Your format is perfect, 
you're entering data; but you would really like to attach 
а note to one record. Just call up another page (for that 
one record only) and type your note. As simple as that. 
Just as the description of this feature is tacked onto the 
end of this review, File can attach a note to any record- 
and use a minimum of disk space to boot. 

Software Publishing Corporation, 1901 Landings 
Drive, Mountain View, CA 94043 (phone: 415-962-8910). 
—Richard Herring 
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PROGRAM LISTINGS 


Attention new Ahoy! readers! You must read the following information very 
carefully prior to typing in programs listed in Ahoy! Certain Commodore 
characters, commands, and strings of characters and commands will appear in 
a special format. Follow the instructions and listing guide on this page. 


n the following pages you'll find several 
programs that you can enter on your 
Commodore computer. But before doing 
so, read this entire page carefully. 

To insure clear reproductions, Ahoy!’s program 
listings are generated on a daisy wheel printer, in- 
capable of printing the commands and graphic char- 
acters used in Commodore programs. These are 
therefore represented by various codes enclosed in 
For example: the SHIFT CLR/HOME 
command is represented onscreen by a heart . 
The code we use in our listings is [CLEAR]. The 
chart below lists all such codes which you'll encoun- 
ter in our listings, except for one other special сазе. 

The other spe е is the COMMODORE and 
SHIFT characters. On the front of most keys are two 
symbols, The symbol on the left is obtained by 
pressing that key while holding down the COMMO- 
DORE key; the symbol on the right, by pressing 
that key while holding down the SHIFT key. COM- 
MODORE and SHIFT characters are represented in 
our listings by a lower-case "s" or "c" followed by 
the symbol of the you must hit. COMMODORE 


J, for example, is represented by [c J], and SHIFT J 
by [s J]. 

Additionally, any character that occurs more than 
two times in a row will be displayed by a coded list- 
ing. For example, [3 "[LEFT]"] would be 3 
CuRSoR left commands іп a row, [5 “|в EP]"] 
would be 5 SHIFTed English Pounds, and so on. 
Multiple blank spaces will be noted in similar fash- 
ion: 22 spaces, for example, as |22 

Sometimes you'll find a program line that's too 
long for the computer to accept (C-64 lines are a 
maximum of 80 characters, or 2 screen lines, long; 
VIC 20 lines, a maximum of 88 characters, or 4 
screen lines). To enter these lines, refer to the BASIC 
Command Abbreviations Appendix in your User 
Manual, 

On the next page you'll find our Bug Repellent 
programs for the VIC 20 and C-64, The version ap- 
propriate for your machine will help you proofread 
our programs after you type them. (Please note: the 
Bug Repellent line codes that follow each program 
line, in the whited-out area, should nor be typed in, 
See the instructions preceding each program.) L 


When 


Vus When ww 
Viu See п Meany You Type Will Sec You See Ht Means You Туре Will See 
[CLEAR] Seren Cer нкт ciwo БІ) [BLACK] Black emi | 
HOME] Home arnom 1 [WHITE] White ENTRI. 2 
UP] Сим Up smer (ceu ШІ [RED] Red ENTRI А 
[DOWN] Curar Dom (esu 2 [CYAN] Cyan ama № 
[LEFT] Curar Left SHIFT CORSI [PURPLE] Purple су, HB 
RIGHT] Curar Right -nse E [GREEN] Green сми. „@ 
851 Shined Space SHIFT Space [BLUE] ше сән) EB 
[INSERT] Invert smer мути. ІШ [YELLOW] Vel су. М 
[DEL] Delete ws» M [21] Function 1 n m 
RVSON] Revere On суга. 9 E [r2] Function 2 sur n М 
[RVSOFF] Reverse ӨТ сма. o Ш [r3 Function 3 "n B 
[UPARROW] — Up arn + Ж [ға] Fonction 4 sur c № 
BACKARROW] ње Arrow - Ж [rs] Function 5 к Ш 
РТ] ы т Ж [r6] Function 6 SHIFT к 
EP] English Pund £ Е [F7] Function 7 c | 
[F8] Function 8 src № 


talia.ne 
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IMPORTANT! 
BUG REPELLENT 


This program will let you debug any Ahoy! program. Follow in- 
structions for VIC 20 (cassette or disk) or C-64. 


VIC 20 VERSION 
By Michael Kleinert and David Barron 


For cassette: type in and save the Bug Repellent program. then 
type RUN 63000] RETURNISYS 828[RETURN]. If you typed the 
program properly, it will generate a set of two-letter line codes that 
will match those listed to the right of the respective program lines. 
Once you've got a working Bug Repellent, type in the program 
you wish to check, Save it and type the RUN and SYS commands 
listed above once again, then compare the line codes generated to 
those listed in the magazine. If you spot a discrepancy. a typing 
error exists in that line. Important: you must use exactly the same. 
spacing as the program in the magazine. Due to memory limitations. 
on the VIC, the VIC Bug Repellent will register an error if your 

spacing varies from what’s printed 
You may type SYS 828 as many times as you wish, but if you 
assette. for anything, type RUN 63000 to restore the 


When your program has been disinfected you may delete all fines 
from 63000 on. (Be sure the program you type doesn't include lines 
above 63000!) 

For disk: enter Bug Repellent, save it, and type RUN:NEW 
the program you wish to check, then SYS 828. 
codes listing, press SHIFT. 


2 m the cursor comes back. 
PRINT#4:CLOSE 4[RETURN]. 
:63000 FORX«828T01023: READY: POKEX , Y: NEXT: END. 
*63001 DATA169,0,133,63,133,64,165,43,133,251 
*63002 DATA165,44,133,252,160,0,132,254,32,228 
+63003 DATA3, 234 ,177,251,208,3, 76, 208 ,3, 230 
-63004 DATA251,208,2,230,252,169,244,160,3,32 
+63005 
8 


type 


*63006 
*63007 
*63008 
*63009 
*63010 
m 
*63011 
163012 
*63013 
*63014 
163015 
*63016 
*63017 
H 
*63018 
*63019 
+63020 


DATA2,230,252,177,251,32,205,221,169,58 
DATA32,210,255,169,0,133,253,230,254,32 
DATA228,3, 234,165, 253, 169,0,170,177,251 
DATA201,32, 240, 6,138,113, 251,69, 254,170 
DATA138, 133, 253,177,251 , 208, 226, 165, 253 


ПАТА240,74,74,74,74,24,105,65,32,210 
0АТА255,165,253,41,15,20,105,65,32,210 
DATA255,169,13,32,210,255,173,141,2,41 
DATA , 208, 249, 230,63, 208, 2,230, 64, 230 
DATA251, 208, 2,230, 252,76, 74,3, 169, 236 
DATA160,3, 32, 30,203, 166,63, 165,64, 32 
DATA205, 221,169, 13,32, 210, 255,96, 23,25 


DATA208 , 2,230, 252,96,0,76,73, 78,69 
DATA83, 58, 32,9, 76,73,78,69,32,35 
DATA32,0,0,0,0,0 


C-64 VERSION 
By Michael Kleinert and David Barron 


Type in, SAVE, and RUN the Hug Repellent. Type NEW, then 
© in or LOAD the Ahoy? program you wish to check, When thats 
SAVE your program (don't RUN it!) and type SYS 49152 
IRETURN| 

To pause the listing depress and hold the SHIFT key. 

Compare the codes your machine generates to the codes listed 
to the right of the respective program lines. If you spot a difference, 
an error exists in that line. Jot down the number of lines where 
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AC. 
JL 
DF 
OE 
OH 


DATA3G, 203, 169,0,177,251,179, 236,251, 20 
ко 


JJ 
OK 
16 
ВР 


Letters on white background are Bug Repellent line codes. Do not enter them! This and the preceding page explain these 
codes and provide other essential information on entering Ahoy! programs. Read these pages before entering programs. 


contradictions occur. LIST cach linc. spot the errors, and correct 


them. 

*5000 
*5001 
15002 
15003 
*5004 
*5005 
+5006 
"5007 
“5008 
“5009 
“5010 
5011 
“5012 
+5013 
15014 
*5015 
*5016 
“5017 
“5018 
+5019 
+5020 
*5021 
+5022 
“5023 
-5024 
“5025 
“5026 
“5027 
+5028 
+5029 
*5030 
*5031 
15032 
15033 
15034 


FORK=49152T049488 : READY : POKEX, Y : NEXT: END GJ 
DATA32,161,192,165,43,133,251,165,44,133 DL 
DATA252,160,0,132,254,32,37,193,234,177 DB 


DATA251,208,3,76,138,192,230,251,208,2 ОЕ 
DATA230,252,76,43,192,76,73,78,69,32 XN 
DATA35,32,0,169,35,160,192,32,30,171 СА 


ТАТА160,0,177,251,170,230,251,208,2,230 СЕ 
DATA252,177,251,32,205,189,169,58,32,210 JE 
DATA255,169,0,133,253,230,254,32,37,193 CL 
0АТА234,165,253,160,0,76,13,193,133,253 NB 


DATA177,251,208,237,165,253, 41,240, 74, 74 MB 
DATA74,74,24,105,65,32,210,255,165,253 ЕР 
DATA41,15,24,105,65,32,210,255,169,13 ОН 
DATA32, 220,192, 230,63, 208,2,230,64,230 АМ 
DATA251 , 208, 2,239, 252,76,11, 192,169,153 NG 
DATA160,192,32,30,171,160,63,165,64,76 ВР 
DATA231,192,96, 76, 73, 78,69,83,58, 32 EP 
DATAG, 169, 247,160, 192,32,39,171,169,3 РЈ 
DATA133, 254,32, 228,255, 201,83,240,6,201. ЕК 
DATAB!, 208, 245,230, 254,32, 219,255,169,4 FL 


DATA166 , 254, 160, 255,32, 186, 255, 169, 0,133 CL 
DATAG3, 133,64, 133,2,32,189,255,32,192 — GC 
DATA255, 166, 254,32, 201,255, 76,73,193,96 NN 
DATA32, 210, 255,173,141,2,41,1,208,249 МН 
DATA96, 32, 205, 189,169, 13,32,219,255,32 IM 
DATA204, 255,169, 4,76, 195, 255,147,83,67 КС 
DATA82, 69,69, 78, 32, 79,82,32,80,82 DC 
DATA73, 78,84, 69,82,32,63,32,0,76 ML 
DATA44 193, 234,177,251, 201,32,240,6,138 GN 
DATAI13, 251,69, 254,179,138, 76,88,192,0 ЈК 
DATAO,0,0, 230,251,208, 2,230, 252,96 NA 
DATAI70,177,251,201,34,208,6,165,2,73 DM 
DATA255,133,2,165,2,208,218,177,251,201 JA 
DATA32, 208, 212,198, 254,76, 29,193,169 FM 
DATA13, 76,210,255 ,0,0,0 PA 


NIXS PEED ronTHEC-64 


By Gordon: Ё. Wheat 


Flankspeed will all 
grams without an! 


low you to enter machine language «Moy pro- 
eram in 


While entering an ML. program with 


save it for future use 
Flankspeed there is no need to enter spaces or hit the carriage retum. 
This is all done automatically. If you make an error in a line a bell 
will ring and you will be asked to enter it again, To LOAD in à 


pn 


ram Saved with Flankspeed use LOAD “nan 
ог LOAD “nam 
the starting and ending 
(1 -SAVEs what you have entere 
13— LOADs in a ри 
15 — To continue on 


1 for tape, 
у be used alter 
è been entered. 


8.1 for disk, The function keys n 
dresses h: 


so far 
am worked on previously 
line you stopped on alter LOADing in the 


previously saved work. 
17 — Scans through the program to locate a particular fine, or to find 


ut where you stopped the last time 


ри entered the program. 17 


temporarily freezes the output ay well 


+6 PRINT"[CLEAR][c 8][RVSON][15" "]FLANKSPEED[ 


*5 POKE53280,12:POKE53281,11 - LL 


15" "]"; 
+10 PRIN 


ROGRAM[O" "J" 

[RVSON][9" "]CREATED BY С. F. WHEAT[ 
DM 

']COPR. 1984, ION INTERNA 


*15 PI 


ov" 


-20 PRINT" [RVSON ][3" 


El 
[RVSON][5" "]MISTAKEPROOF МІ, ENTRY P 
MC 


http 


TIONAL INC.[3" "J" DH 
-30 FORA-54272T054296: POKEA ,O: NEXT. 1M 
+40, POKESA272 , 4: POKES4273 ,48: POKESA277 ,0:РОКЕЗ 
4278,249: POKES4296, 15 ш 
“70 FORA-6B(jT0699 : READB: POKEA , B: NEXT 

.75 DATA169,251, 166,253, 164,254, 32,216, 255,96 Eu 
+76 ПАТА169:0,106,251,164,252,32,213,255,06 JB 
-B BS="STARTING ADDRESS IN HEX":GOSUB2010:AD= 
B:SR=B HC 
+85 GOSUB2520: ТЕВ-ИТНЕМВО FO 
+86 POKE251,T(4)4T(3)*16:POKE252,T(2)4T(1)*16 КЕ 
«96 B$="ENDING ADDRESS IN HEX":GOSUB2010:EN=B IF 
+95 GOSUB2510: IFB«OTHENBO FP 
+96 POKE254 ‚Т(2)+Т(1)*16:В=Т(4)+1+Т(3)*16 MN 
+97 IFB>255THENB=B-255:POKE254,PEEK(254)+1 СЕ 


*98 POKE253, B: PRINT HN 
100 REM GET HEX LINE IL 
+110 GOSUB3010:PRINT": [c P][LEFT]"; : РОВА=0ТО8 FG 
+120 FORB=(T01:GOTO210 MD 
*125 NEXTB ME 
+130 AZ(A)eT(1)4T(0)*16: IFADeA-1 SENTHEN316 LH 
*135 PRINT" (c P)[LEFT]"; IK 
*140 МЕХТА: T«AD-(INT(AD/256)*256) : PRINT" " PD 
+150 FORA=(TO7 : Т=Т+АХ( А) : ТЕТ>255ТНЕМТ=Т-255 LK 
*160 NEXT ТА 
170 IFAZ(B) €» TTHENGOSUB1010: GOTO1 10 FK 
180 FORASUTO7 : РОКЕАП+А , АХ (А): NEXT: AD=AD+8:GOT 

0110 MN 
“200 REM GET HEX INPUT AB 
+210 GETA$: IFA$s" THEN210 HO 
*211 IFA$=CHR$(20)THEN270 GC 


*212 ТЕА$=СНК$( 133) THENA4000 * MD 
*213 TFA$=CHR$(134)THENG100 КЕ 
*214 IFA$=CHR$(135)THENPRINT" ":0070450/0 GE 
*215 IFA$=CHR$(136)THENPRINT" ":00704700 BJ 
*220 IFA$>"@"ANDA$<"G"THENT(B)=ASC( A$ )-55:GOTO 

250 GM 
*230 IFA$»" /" ANDAS«" : "THENT(B) =АЗС(А$ ) -48: GOTO. 

250 LE. 
+240 605081100:60Т0210 LL 
+250 PRINTAS"[c P][LEFT]"; OA 
“260 GOTO125 сс 
+270 ТРАЗОТНЕХ2 80) ОР 
*272 А=-1:ТЕВ=1ТНЕМ290) OB 
+274 6070140 CJ 
280) IFB=(/THENPRINTCHRS (20) ; CHR$(20) ; :А=А-1 HG 
*285 А=А-1 BE 
+290 PRINTCHR$(20) ; :С0Т0140 KH 
+30) REM LAST LINE AD 
+31 PRINT" ":T=AD-(INT(AD/256)*256) GJ 
*320 ЕОВВ=ПТОА-1 :Т=Т+А%( В) :ТЕТ>255ТНЕМТ=Т-255 PL 
*330 NEXT IA 
+340) IFAX(A) €? TTHENGOSUB1010:GOTOI L0 КЕ 
+350 FORB=(/TOA-1:POKEAD+B,A%(B) :NEXT HN 
+360 PRINT:PRINT"YOU ARE FINISHED!" : GOTO4000 ОХ 
+1000 REM BELL AND ERROR MESSAGES FL 
*1010 PRINT:PRINT"LINE ENTERED INCORRECTLY":PR 

INT:GOTOl1100 DH 


*1020 PRINT:PRINT"INPUT A 4 DIGIT HEX VALUE!": 
60701100 JA 
*1030 PRINT:PRINT"ENDING IS LESS THAN STARTING 
|!" В-0:00701100 HD. 
+1040 PRINT:PRINT"ADDRESS NOT WITHIN SPECIFIED 
ВАМСЕ!": :60701100 AG 
*1050 PRINT:PRINT"NOT ZERO PAGE OR ROM!":B=0:G 
0701100 KN 


+1060 РВІМТ"?ЕКЕОК IN SAVE":GOTO1100 EI 
+1070 PRINT"?ERROR IN LOAD":GOTOl100 GL. 
+1080 PRINT:PRINT:PRINT"END OF ML AREA":PRINT PG 
*1106 POKES4276,17:POKE54276, 16: RETURN ВН 
*1200 OPEN15,8,15:INPUT#15,A,A$:CLOSE15:PRINTA 

$:ВЕТОВУ IM 
“2000 REM GET FOUR DIGIT HEX PC 
*2010 PRINT:PRINTBS; : INPUTT$ GM 
+2020 IFLEN(T$)<>4THENGOSUB1920:GOTO2010 II 


+2040 FORAZ1TOA: A$-MIDS(TS, A, 1) :GOSUB2060: IFT( 
A)-16THENGOSUB1020:GOTO2010 AD 
+2050 МЕХТ:В=(Т(1)+4096)+(Т(2)*256)+(Т(3)*16)+ 
T(4) : RETURN GF 
+2060) IFAS>"@"ANDAS<"G"THENT(A)=ASC(A$)-55:RET 
URN EH 
*2(70. IFAS>"/"ANDAS<": "THENT(A) SASC(A$) -48: RET 
URN KP. 


+2089 Т(А)-16: RETURN NP 
*2500 REM ADRESS CHECK LI 
+2510 ІҒАП>ЕХТНЕМ1030 MI 


+2515 ТЕВ<ЗВОВВ>ЕХТНЕМ1 040) MG. 
+2520 IFB«2560R(B»40960ANDB«49152)0RB»53247THE. 
№1050 


+2530 RETURN IM 
*3000 REM ADDRESS TO HEX EB 
“3010 AC=AD:A=4096:GOSUB3070 HG 
“3020 A=256:GOSUB3070 CE 
“3030 А-16:6051/В3/70 PN 
“3040 A=1:GOSUB3079 MJ 
*3060 RETURN ІМ 
“3070 T=INT(AC/A) : IFT29THENASsCHRS (T455) :GOTO3 
090 CJ 
*3080 AS-CHRS(T448) JP 
+3090 PRINTA$; : АС=АС-А*Т : RETURN AC 
+4000 А$="ж*5АҮЕЖЖ" : GOSUBA200. AL 
+4050 OPEN1,T,1,A$:SYS680:CLOSE1 LH 
+4060 ТЕЗТ=ОТНЕМЕМО EO. 
*4(70 GOSUB1060: IFT-8THENGOSUBI 200 FJ 
+4089 60704000 FF. 
+4100 A$z'**LOAD**" 605084200 AB 
+5150 OPEN1,T,0, A$: SYS690: CLOSE] MF 
*4160 IFST-64THEN110 JH 
+4176 GOSUB1670: IFT«8THENGOSUBI206 CM 
+4180 FO 
“4200 FG 
+4210 РЕТМТ:А$="" : INPUT" FILENAME"; A$ 0M 
*4215 ТЕА$=""ТНЕМ4210) GF 
*4226 PRINT:PRINT"TAPE OR DISK?":PRINT DF ` 
«4230 GETB$:T=1:IFB$="D"THENT=8: A$="@):"+A$:RE 
TURN IG 
+424) ТЕВ$<>"Т"ТНЕМ4230 FN 
“4250 RETURN IM 
is B$="CONTINUE FROM ADDRESS":GOSUB2010:AD» 
DK 
+4510 GOSUB2515:IFB=GTHEN4500 MA 
+4520 PRINT:GOTO110 01 
*470( В$="ВЕСТМ SCAN АТ ADDRESS":GOSUB2010:AD- 
B FH 
*4705 GOSUB2515:IFBeUTHENA700. NK 
+4706 PRINT:GOTO4740 DI 
*4710 FORB-UTO7 : AC=PEEK(AD+B) :GOSUB3030: ТЕАР+В 
zENTHENAD-SR:GOSUBI080: GOTO116 BK 
*4715 PRINT" ";:NEXTB EC 
+4720 PRINT: AD=AD+8. GN 
+4730 GETB$:IFB$=CHR$(136)THEN110 MN 


+4740 GOSUB3O10:PRINT": "; 
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2 
THROUGH Color Many 


FROM PAGE 18 MENU FOR VIC 20 


*1 REM MENU FOR VIC—POKEING COLOR MEMORY JG 
*7 REM JD 
*8 REM DISABLE RUN/STOP 8 SHIFT/COMMODORE EG 


*9 REM JD 
*10 POKE 808,100:POKE 657,128 JP 
*20 DIM CO(4) KH 
*27 REM JD 
*28 REM SET CO() TO ADDRESSES OF OPTION F 

IELDS IN COLOR MEMORY MD 
*29 REM JD 


*30 СМ=38400:С0(0)=38513:ЕОК Isl TO 4:CO( 
I)=CO(I-1)+22:NEXT PF 
*37 REM JD 
*38 REM SET OLD AND NEW COLOR LOCATIONS A 
ND COLOR VALUES IL 
*40 NP=2:XP=2:NC=1:XC=:POKE 36879,232 РС 


“41 PRINT "[BLACK]"; KF 
*47 REM JD 
*48 REM PRINT THE MENU AO 


*49 REM JD 
*50 CR$=CHR$(13):PRINT "[CLEAR] CHOOSE YO 
UR SANDWICH" EN 


*51 PRINT "[4" "ЈЕ5=0Р F7=DOWN"CR$"[5" " 
ЈЅРАСЕ=СНОТСЕ" ВЕ 
+52 PRINT "[21"*"]"св$"*[19" "јә" FF 
*53 PRINT "Ж ROAST BEEF[7" "]*"CR$"* СО 
RNED BEEF[6" "]ж" LB 
“54 PRINT "Ж SHAVED HAM[7" "J*"CR$'"* РА 
STRAMI[9" "Jw" HN 
*55 PRINT "Ж TURKEY & SALAMI *"CR$"*[19 
Yong KG 


*56 PRINT "[21"*" ]"CR$CR$CR$CR$CR$CR$ GB 
+57 PRINT "[4"^"]PRESS [RVSON]Q[RVSOFF] T 
о QUIT"; BJ 


+60 GOSUB 900 DD 
+97 REM JD 
“98 REM READ KEYBOARD BA 
*99 REM JD 
*100 A=PEEK(197):IF А=64 THEN 100 CH 
*106 REM JD 
*107 REM JD 
*108 REM STOP NOW? BI 
*109 REM JD 
*110 IF A-48 THEN 800 DJ 
*117 REM JD 
*118 REM CHOICE MADE? JB 
*119 REM JD 
120 IF A-32 THEN GOSUB 200:GOTO 100 NH 
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“127 REM JD 
*128 REM MOVE UP? KN 
+129 REM JD 
+130 IF A=55 THEN МР=МР-1:ТЕ МР<0 THEN NP 
=4 ВВ 
*137 REM JD 
*138 REM MOVE DOWN? EN 
*139 REM JD 
*140 IF A-63 THEN NP=NP+1:IF NP>4 THEN NP 
=0 AD 
*148 REM IF MOVE, GO DO IT GC 
“150 IF NP<>XP THEN GOSUB 920:GO0SUB 900:X 
Р=МР. А0 
+160 POKE 197,64:GOTO 100 CN 
*200 IF РЕЕК(197)<>64 THEN 200 DL 
*207 REM JD 
*208 REM CLEAR OLD CHOICE JJ 
*209 REM 


JD 
*210 PRINT "[HOME][13"[DOWN]"]YOU CHOSE:" 
CR$"[21" "][UP]" FE 


*217 REM JD 
*218 REM JUMP TABLE сі, 
“219 REM JD 


*220 ON NP+1 GOTO 300,400,500,600,700 XM 
*300 PRINT "ROAST BEEF ON WHEAT":RETURN ЕМ 
*400 PRINT "CORNED BEEF ON RYE":RETURN OJ 
*500 PRINT "SHAVED HAM ON BUN":RETURN BK 
*600 PRINT "PASTRAMI ON TOAST":RETURN ЕР 
*700 PRINT "TURKEY/SALAMI ON ROLL":RETURN НІ 


*797 REM JD. 
*798 REM QUIT ROUTINE PD 
*799 REM JD 
+800 IF PEEK(197)<>64 THEN 800 EB 
*810 PRINT "[CLEAR]":POKE 808,112:POKE 65 

7,0:POKE 198,0:END GL 
*897 REM JD 
*898 REM POKE COLORS INTO COLOR MEMORY Рр 
*899 REM JD 
*900 FOR I-CO(NP) TO CO(NP)+15:POKE I,NC: 

NEXT: RETURN LK 
+920 FOR I-CO(XP) TO CO(XP)+15:POKE I,XC: 

NEXT: RETURN II 


MENU FOR C-64 
*l REM MENU FOR 64--POKEING COLOR MEMORY PO 


*7 REM JD 
-8 REM DISABLE RUN/STOP AND RESTORE JC 
*9 REM JD 
*10 POKE 792,193:POKE 808,239:POKE 657,12 

8 MF 
*20 DIM CO(4) JL 
*27 REM JD 
*28 REM SET CO() TO ADDRESSES OF OPTION Е 

IELDS IN COLOR MEMORY pP 
*29 REM JD 
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“30 СМ=55296:60(0)=55499:ЕОК Т=1 TO 4:CO( 


T)=CO(I-1)+40:NEXT FJ 
“37 REM JD 
*38 REM SET OLD AND NEW COLOR LOCATIONS A 

ND COLOR VALUES FE 
+40) NP=2:XP=2:NC=1:XC=14 NL 
“87 REM JD 
*48 REM PRINT THE MENU EE 
*49 REM JD 


+50) CR$=CHR$(13):PRINT "[CLEAR][10" "]CHO 
OSE YOUR SANDWICH" HD 
*51 PRINT "[5" "]F5=UP[3" "]F7-DOWN[3" "] 
SPACE=CHOICE" AF 
*52 PRINT CR$"[23'**"]"CR$'»[21" "Je" XM 
+53 PRINT "ж ROAST BEEF[9" "]*"CR$"* CO 
RNED BEEF[8" "]*" 

*54 PRINT "Ж SHAVED HAM[9" "]*"CR$"* РА 
STRAMI[11" "]*" ON 
*55 PRINT "Ж TURKEY 8 SALAMI[4" "]*"CR$" 
*[21" "жи M 
*56 PRINT "[23'"*"]" CR$CR$CRS$CR$CR$CR$ EA 
*57 PRINT "[9" "]PRESS [RVSON]RUN/STOP[RV 
SOFF] TO QUIT"; LI 


+60 GOSUB 900 DB 
+97 REM JD 
+98 REM READ KEYBOARD AI 
*99 REM JD 
*100 A=PEEK(197):IF А=64 THEN 100 PP 
*106 REM JD 
*107 REM JD 
*108 REM STOP NOW? BK 
*109 REM JD 
*110 IF А=63 THEN 800 DM 
*117 REM JD 
+118 REM CHOICE MADE? LJ 
*119 REM JD 
+120 IF А-60 THEN GOSUB 200:GO0TO 100 OH 
*127 REM JD 
“128 REM MOVE UP? KJ 
+129 REM JD 
*130 IF A=6 THEN NP=NP-1:IF М№Р<0 THEN NP= 

4 

*137 REM JD 
*138 REM MOVE DOWN? DN 
*139 REM JD 


*140 IF А=3 THEN МР=МР+1:ТЕ NP>4 THEN МР= 
0 РЕ 


*148 REM IF MOVE, GO DO IT DJ 
*150 IF NP<>XP THEN GOSUB 920:GOSUB 900:Х 
P=NP AL 


+160 POKE 197,64:GOTO 100 DN 
“200 ТЕ PEEK(197)<>64 THEN 200 FF 
*207 REM JD 
+208 REM CLEAR OLD CHOICE GF 
*209 REM JD 


*210 PRINT "[HOME][13"[DOWN]"]YOU CHOSE:" 
CR$"[25" "J[UP]" сс 
*217 REM JD 


*218 REM JUMP TABLE EB 
+219 REM JD 
+220 ON NP+1 GOTO 300,400,500,600,700 GC 
+300 PRINT "ROAST BEEF ON WHEAT":RETURN PE 
*40( PRINT "CORNED BEEF ON RYE":RETURN EL 
*500 PRINT "SHAVED НАМ ON A CROISSANT":RE 

TURN KG 
+600 PRINT "PASTRAMI ON TOAST":RETURN DI 
*700 PRINT "TURKEY & SALAMI ON ROLL":RETU 


RN LH 
*797 REM JD 
*798 REM QUIT ROUTINE PJ 
*799 REM JD 
«800 IF PEEK(197)<>64 THEN 800 EL 
«810 PRINT "[CLEAR]":POKE 792,71:POKE 808 

,237:РОКЕ 657,0:POKE 198,0:END ОЕ 
*B97 REM JD 
“898 REM POKE COLORS INTO COLOR MEMORY ВМ 
*899 REM JD 


*900 FOR I-CO(NP) TO CO(NP)+15:POKE I,NC: 
NEXT: RETURN JD 
+920 FOR I-CO(XP) TO CO(XP)+15:POKE I,XC: 

NEXT: RETURN LJ 


FAST MENU FOR C-64 


*7 REM JD 
*B REM DISABLE RUN/STOP AND RESTORE JC 
*9 REM JD 
*10 POKE 792,193:POKE 808,239:POKE 657,12 

8 МЕ 
*20 DIM V$(23) LF 
*27 REM JD 
*28 REM SET V$() TO ROW NUMBERS BG 
*29 REM JD 
“30 V$(0)="[HOME]":FOR Т=1 TO 23:V$(I)-V$ 
(I-1)+" [DOWN]" : NEXT MB 
*37 REM 

*38 REM SET OLD AND NEW COLOR LOCATIONS A 
ND COLOR STRINGS IK 
-40 NP=2:XP=1:XC$="[c 7][39","]" MJ 
*41 HC$="[WHITE]"+RIGHT$(XC$ , 39) JG 
*47 REM JD 
*48 REM PRINT THE MENU EE 
+49 REM 


JD 
*50 CRS-CHRS(13):PRINT "[CLEAR][10" "]CHO 
OSE YOUR SANDWICH" нр 
“51 PRINT "5" "IFSeUPL3" "JE7=DOWN[S" "] 
SPACE-CHOICE" 

+52 PRINT CR$"[23""]"CRS"&[21" "жи m 
-53 PRINT "* ROAST BEEF[9" "]e"CRS"* CO 
RNED BEEF[S" "JA" OF 
+54 PRINT "* SHAVED HAM[9" "]*"CRS"* РА 
STRAMI[11" "ж" ON 
+55 PRINT "* TURKEY & SALAMI[A" "]*"CRS" 
ізін ан мо 
+56 PRINT "[23"*" ]"CRSCR$CR$CR$CR$CR$ ЕА 
+57 PRINT "[9" "]PRESS [RVSON]RUN/STOP[RV 
SOFF] TO QUIT"; LI 
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*60 GOSUB 900:XP-NP GC 


+97 REM JD 
-98 REM READ KEYBOARD AI 
+99 REM JD 
*100 A-PEEK(197):IF A-64 THEN 100 PP 
:107 REM JD 
:108 REM QUIT? AL 
+109 REM JD 
+110 IF А=63 THEN 800 DM 
+117 REM JD 
+118 REM CHOICE MADE? LI 
*119 REM JD 
:120 IF А-60 THEN GOSUB 200:GOTO 100 он 
+127 REM JD 
*128 REM MOVE UP? KJ 
:129 REM т 
"130 IF Ae6 THEN NP-NP-lIF ИР) THEN НР 
CJ 
*137 REM JD 
+138 REM MOVE DOWN? DN 
:139 REM JD 
+140 IF A=3 THEN NP=NP+1:IF NP>4 THEN NP= 
0 ЕР 
*147 REM JD 
+148 REM IF MOVE, GO DO IT DJ 
*149 REM JD 
+150 IF NP<>XP THEN GOSUB 900:ХР=МР GG 
*160 POKE 197,64:GOTO 100 DN 
-200 IF РЕЕК(197)<>6% THEN 200 FF 
*207 REM JD 
*208 REM CLEAR OLD CHOICE GF 
+209 REM JD 
*210 PRINT "[HOME][13"{DOWN]" ]YOU CHOSE: " 
CR$"[25" "][UP]" сс 
-217 REM т 
+218 REM JUMP TABLE EB 
*219 REM JD 


*220 ON NP+1 GOTO 300,400,500,600,700 GC 
*300 PRINT "ROAST BEEF ON WHEAT":RETURN РЕ 
*400 PRINT "CORNED BEEF ON RYE":RETURN EL 
*500 PRINT "SHAVED HAM ON A CROISSANT":RE 

TURN KG 
*600 PRINT "PASTRAMI ON TOAST":RETURN DI 
*700 PRINT "TURKEY & SALAMI ON ROLL":RETU 


RN LH 
*797 REM JD 
*798 REM RESTORE AND END HJ 
*799 REM JD 
*800 IF PEEK(197)<>64 THEN 800 EL 
*810 PRINT "[CLEAR]":POKE 792,71:POKE 808 
,237:РОКЕ 657,0:РОКЕ 198,0:END OE 
“897 REM 


J 
*898 REM PRINT COLORS USING FALSE SCREEN 
MEMORY CE 
*900 POKE 648,60: PEINT LEONE IOOHCSYSCYPIS 
)XC: FK 


WORM FOR VIC 20 
*1 REM WORM FOR VIC--ANIMATE WITH COLOR M 


EMORY ОЕ 
*10 РОКЕ 808,100:POKE 657,128 JP 
*20 DIM WM(14) ос 


“30 CM«38400:WM(0)238520:WM(1)238521:WM(2 
)=38544:LW=2 КВ 
"40 CW=2:CB=0:CF=5:POKE 36879,8:PRINT CHR 
$(144)CHR$(147); HF 
50 Е$="[21"[з Q]"]" ВЕ 
*51 FOR Т=0 TO 23:PRINT F$:NEXT:PRINT F$" 
[HOME]" ; BG 
*52 FOR I-CM421 TO СМ+505 STEP 22:POKE I, 
О:МЕХТ 
*53 FOR 1=7701 TO 8185 STEP 22:POKE I,81: 

Gi 


NEXT С 
“60 FOR Т=0 TO LW:POKE WM(I),CW:NEXT ІМ 
"70 FOR І-0 TO 11 ML 


*75 FeCM+INT(506*RND(9)):IF (PEEK(F)AND dc 
5) CB THEN 75 


*80 РОКЕ F,CF:NEXT E 
*100 A-PEEK (197) :В-РЕЕК (653) : IF А=24 OR A 
=48 THEN 800 ID 


+110 IF А<>63 AND А<>55 AND В<>1 AND В<>2 
THEN 100 EC 

*120 XW=WM(LW):FOR I-LW TO 1 STEP -1:WM(I 
)=WM(I-1) :NEXT FL 

*130 IF A=55 THEN WM(9)=WM(0)-22:1F o. 
«CM THEN WM(9)=WM(0)+506 

*135 IF A=63 THEN WM(0)-WM(0)422:1F "oy 
238905 THEN WM(0)=WM(0)-506 

*140 IF В=2 THEN WM(0)sWM(0)-1:1F TOM 

M THEN \М(0)=ММ(0)+506 ОР 

*145 IF В=1 THEN ММ(0)=ММ(0)+1:ТЕ WM(0)>3 
8905 THEN WM(0)-WM(0)-506 HJ 


*147 REM JD 
*148 REM IS IT FOOD? EN 
*149 REM JD 
*150 IF (PEEK(WM(0))AND 15)-СЕ THEN LWsLW 

*1:WM(LW)-XW:GOTO 170 OE 
“160 POKE XW,CB AH 
*170 POKE WM(0),CW:IF LW>13 THEN 30 FJ 
180 GOTO 100 BP 
*800 IF РЕЕК(197)<>64 THEN 800 ЕВ 
*810 PRINT "[с 7][CLEAR]":POKE 808,112:Р0 

KE 657,0:POKE 198,0:SYS 65234:END BM 


WORM FOR C-64 


*1 REM WORM FOR 64--ANIMATE WITH COLOR ME 
MORY 


+7 REM JD. 
*8 REM DISABLE RUN/STOP AND RESTORE JC 
*9 REM JD 
*10 POKE 792,193:POKE 808,239:РОКЕ 657,12 w 
8 

*20 DIM WM(14) OB 
*27 REM JD 
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+28 REM SET WM() TO WORM'S STARTING POSIT 
ION IN COLOR MEMORY PG 
*29 REM JD 
“30 CM=55296:WM()=55712;WM(1)=55713: M ы 
)=55752:LW=2 

+37 REM D 
*38 REM SET WORM, FOOD, AND BACKGROUND CO 
LOR VALUES 

“40 CW=7:CB=9:CF=5:POKE 53281,CB:PRINT CH 


R$(149)CHR$(147); XP 
*47 REM JD 
“48 REM FILL THE SCREEN WITH DOTS BB 
*49 REM JD 
*50 F$s"[39"[s Q]"]" JC 
+51 FOR I=) TO 23:PRINT F$:NEXT:PRINT F$" 
[HOME]" ; 

*52 FOR I«1063 TO 2023 STEP 40:РОКЕ 1,81: 
NEXT IK 
+57 REM JD 
+58 REM PUT WORM ON SCREEN GN 
+59 REM JD 
*60 FOR I-0 TO LW:POKE WM(I),CW:NEXT HN 
*67 REM JD 
*68 REM PUT FOOD OUT RANDOMLY BP 
*69 REM JD 
“70 FOR 1=0 TO 11 MH 
*75 F=CM+INT(1000*RND(9)):IF (PEEK(F)AND 
15)<>CB THEN 75 NJ 
«80 POKE F,CF:NEXT GN 
*97 REM JD 
+98 REM READ KEYBOARD AI 


*99 REM JD 
*100 AsPEEK(197):B-PEEK(653):IF A=63 THEN 
800 


*106 REM JD 
*107 REM JD 
*108 REM LEGAL MOVEMENT? LD 
*109 REM JD 
*110 IF А<>6 AND А<>3 AND В<>1 AND BO2 T 

HEN 100 NF 
*117 REM JD 
*118 REM SHIFT ADDRESSES МА 
*119 REM JD 
*120 XWeWM(LW):FOR I=LW TO 1 STEP -1:WM(I 

)eWMCI-1):NEXT KN 
*127 REM JD 
“128 REM MOVE UP? KJ 
+129 REM JD 
+130 IF A=6 THEN WM(0)-WM(0)-40:IF WM(9)< 

CM THEN WM(0)=WM(0)+1000 AH 
*132 REM JD 
*133 REM MOVE DOWN? DN 
*134 REM JD 
+135 IF A=3 THEN WM(0)SWM(0)440:IF WM(0)» 

56295 THEN WM(0)-WM(0)-1006 JF 
*137 REM JD 
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*138 REM MOVE LEFT? BE 
*139 REM JD 
*140 IF B-2 THEN WM(0)-WM(0)-1:IF WM(0)<C 

M THEN WM(9)=WM(0)+1000 JJ 
*142 REM JD 
*143 REM MOVE RIGHT? 1C 
*144 REM JD 
145 IF В=1 THEN WM(0)eWM(0)*1:IF ҰМ(0)>5 

6295 THEN WM(0)-WM(0)-1000 сс 
147 REM JD 
*148 REM IS IT FOOD? DP. 
*149 REM JD 
+150 IF (PEEK(WM(9))AND 15)-CF THEN LW=LW 

+1:WM(LW)=XW:GOTO 170 JH 
+158 REM ERASE WORM'S TAIL PH 
+159 REM JD 
+16) POKE XW,CB AJ 
*167 REM JD 
*168 REM COLOR WORM'S HEAD 0A 
*169 REM JD 
*170 POKE WM(0),CW:IF LW>13 THEN 30 EC 
*180 GOTO 100 CF 
*797 REM JD 
*798 REM QUIT ROUTINE PJ 
*799 REM JD 
*B00 IF PEEK(197)<>64 THEN 800 EL 


*810 POKE 53281,6:PRINT "[c 7][CLEAR]":PO 
KE 792,71:POKE 808,237:POKE 657,0:POKE 1 


98,0:END NL 
ASSEMBLER ESCAPADES 
FROM PAGE 55 LISTING 1 
“1 IF 00-1 THEN 140 FO 
*2 IF QQ-2 THEN END DJ 
*4 КЕМ ML 
*5 :REM — SAVE SCREEN TO DISK -- KE 
*6 :КЕМ =RUPERT-REPORT=LISTING-1= JA 
*7 :REM ML 
“10 DEF FNH(X)=INT(X/256) :REM MSB OF X НЕ 
+20 DEF FNL(X)=X-256*FNH(X) :REM LSB DF 
*25 :REM ML 
*30 oe 500 :REM: PUT IMAGE ON SCREEN PN 
“35; ML 
40 PLNAMŞ="@:SCRN1" IA 
*45 FAS-FLNAMS ON 
+50 SADDR-1024 : EADDR-2024 CL 
*60 GOSUB 220 :КЕМ: SAVE SCREEN MEMORY FL 
+65 :REM ML 
“70 FLNAM$="@:COLR1" EC 
+75 FBS=FLNAM$ PM 
+80 SADDR=55296 : EADDR-56296 JK 
+90 GOSUB 220 :КЕМ: SAVE COLOR MEMORY NP 
+100 :REM — RESTORE SCREEN — DA 
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*110 PRINT CHR$(147):PRINT"PRESS ANY KEY “320. RTS 3TO BASIC HL 


TO RESTORE SCREEN" GM +330 .:END OL. 
*120 GET АА$ : IF АА$="" THEN 120 NF +340 . «ЕК РЕ 
+130 00-1 : FLNAMS-FBS : GOTO 600 CJ LISTING 3 
*140 00-2 : FLNAM$=FA$ : GOTO 600 CL  *10 REM JD 
*150 REM =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= CD +20 REM =-= SYMBOL TABLE =-= AH 
*160 REM USE KERNAL 'SAVE' ROUTINE LD •30 REM JD 
*170 REM ТО SAVE MEMORY FROM (SADDR) DG +40 $FFD8 :SAVE $0003 :SADDR IM 
*180 REM ТО (EADDR-1) IN FILE "FLNAM$" BO +59 $6005 :EADDR МА 
:190 REM =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= CD «60 $С01р МА 
*200 REM JD -70 $С006 :EADDR+$01 PD 
*210 REM JD LISTING 4 
*220 AREG=780 : XREG=781 : YREG=782 HE +10 REM JD 
*230 OPEN 8,8,8,FLNAM$ GP +20 REM =-=DISASSEMBLED OBJECT CODE--- CL 
*240 SVE=65496 — :REM $FFD8 ME +30 REM JD 
*250 ZPTR-251 :REM $FB (ZERO PAGE) JG +230 6000 4C 07 CÓ me $0007 AD 
*260 POKE ZPTR+1,FNH(SADDR) MK  *246 C003 04 DA 
*270 POKE ZPTR,FNL(SADDR) NO +247 C004 00 м CI 
*280 POKE AREG,ZPTR DE >253 C005 07 жж EJ 
*290 POKE XREG, FNL(EADDR) KK +254 C006 ЕВ INX EL 
*300 POKE YREG,FNH(EADDR) KN  -260 C007 AD 03 CO LDA $C003 BA 
“310 SYS SVE IL +265 CODA 85 FC STA $FC IN 
“320 CLOSE 8 NI +270 COOC AD 04 CO LDA $6004 DE 
*330 RETURN IM +275 COOF 85 FB STA $FB IO. 
+494 :REM ML +280 СОШ A9 FB LDA #$FB GA 
*495 :REM << FILL SCREEN >> ML +290 C013 AE 06 CO LDX $С006 CN. 
*500 FOR МЕМ=1024 TO 2022 STEP 3 CC +300 0016 AC 05 CO LDY $C005 GH 
*510 PRINT CHR$(168)CHR$(127)CHR$(168); РР +310 C019 20 D8 FF JSR $FFD8 KM 
*520 POKE MEM454272,RND(0)*16 GH +320 С01С 60 RTS FC 
*530 NEXT IA LISTING 5 
*540 RETURN IM .5 БЕМ=-=-=-=-=-=-=-=-=—-=—=. =-=-=-= 
"594 iREM -=-=-а-=-я-а-ш-=-ш-ш-ш-ш-=-=-= FO .6 REM INSERT THESE STATEMENTS INTO AJ 
*595 :REM LOAD FLNAM$ BACK INTO MEMORY KL -7 REM LISTING 1 OA 
*596 :REM EXECUTION RESUMES AT START JO .8 ВЕМз-а-=-=-=-=-и-а-=-и-=-ш-и—-=-ы-=-= | ЕО 
*597 :REM OF PROGRAM IP +60 GOSUB 190 со 
+598 :КЕМ -=-=-=-=-=-=-=-2-=-=-=-=-=-=-= FO .00 GOSUB 230 CJ 
*600 LOAD FLNAM$,8,1 NB +190 MEM=49152 :REM ORG=$C000 (49152) НК 
LISTING 2 *200 READ BYTE$:IF BYTE$="DONE" THEN 230 HF 
*10 REM JD +210 GOSUB 1000 :REM CONVERT TO DECIMAL PD 
*20 REM =-=АЗЗЕМВЬЕВ SOURCE CODE--- JH +220 POKE MEM,BYTE : MEM=MEM+1 :GOTO 200 OF 
+3) REM JD +230 OPEN 8,8,8,FLNAM$ GP. 
*210 .;-- SAVE SCREEN TO DISK -- DM +240 SS-49155 :REM STORE SADDR @ $6003 DO 
“220. ORG 5С000 CH +25) EE-49157 :REM STORE EADDR 8 $6005 DI 
“230, JMP :ENTRY PH «266 POKE SS,FNH(SADDR) AN 
*240 .:SAVE „ЕО SFFD8 ;5.А. OF 'ЗАУЕ' GO +270 POKE SS+1, FNL(SADDR) AP 
“243 .:SADDR ¡START SAVING СІ +28 POKE EE,FNH(EADDR) PL 
1246 . .DB $04 $00 PG +290 POKE EE+1,FNL(EADDR) NB 
“250 .:EADDR ;END SAVING EO +300 :REM ORG IS 5С000 (49152) JF 
“253 , .DB $07 5Е8 DA -310 SYS 49152 КЕ 
*256 .:ENTRY AB *320 CLOSE 8 NI 
*260 . LDA :SADDR ;HI BYTE KL -330 RETURN IM 
*265.. STA $FC NO -400 DATA 4С,07,00,04,00,07,Е8 МА 
“270. LDA :SADDR4$0l ;LO BYTE РМ +410 DATA А0,03,С0,85,ЕС IN 
„215% STA $FB NP +420 DATA AD,04,C0,85, FB, A9, FB BE 
*280 . LDA #$FB 3ZERO PAGE EE +430 DATA АЕ,06,С0,АС,05,С0 PC 
“290. LDX :EADDR+$01 ;LO BYTE HD •440 DATA 20,D8,FF,60 NG 
*300 LDY :EADDR ;HI BYTE Р) +450 DATA DONE LH 
+310 . . JSR :SAVE OJ +1000 REM - CONVERT 2 DIGIT HEX TO DEC - МА 
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*1010 BYTE=0 BA 
*1020 FOR NN-1 TO 2 MB 
*1030 DD=ASC(MID$(BYTE$,NN,1))-48 BK 
*1040 DD=DD+7*(DD>16) EL 
+1050 BYTE=16*BYTE+DD ЕЕ 
*1060 NEXT IA 
*1070 RETURN IM 


By the Numbers 


FROM PAGE 47 

«1 REM Зоо ооо DN 
.5 REM жәнек LISTING №. 1 жюн GD 
«10 REM Жж BY THE NUMBERS Жок IN 
*20 REM * A NUMBER CONVERSION PROGRAM ** JG 
.22 REM Жж но е ео D 
+25 DIM НЕХ$(8),ВІТ$(8),ВІТ(8),Н$(16), Bi a 
16) , TEMP$(2) 

+27 REM SET UP HEX-BINARY CONVERSION ax 
ES: AK 
*35 DATA 9,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F BK 
*36 DATA 0000,0001,0010,0011,0100,0101,01 
10 CD 
*37 DATA 0111,1000,1001,1010,1011,1100,11 
01,1110,1111 A0 


*38 FOR Lel TO 16:READ H$(L):NEXT L KJ 
*39 FOR 1-1 TO 16:READ B$(L):NEXT L JP 
“40 REM CLEAR SCREEN AND PRINT MENU: HB 


*45 PRINT CHR$(147):PRINT:PRINT "THIS PRO 
GRAM WILL CONVERT:" PE 
*50 PRINT:PRINT "[3" "](A) DECIMAL TO HEX 
ADECIMAL" 

“60 PRINT "[3" "](B) HEXADECIMAL TO DECIM 
AL" 00 
*70 PRINT:PRINT "[3" "](C) BINARY TO БЕСТ 
MAL" JF 


“80 PRINT "[3" "](D) DECIMAL TO BINARY" СА 
*90 PRINT:PRINT "[3" "](E) HEXADECIMAL TO 

BINARY" GP 
*100 PRINT "[3" "](F) BINARY TO HEXADECIM 
AL';PRINT 


+110 AS-"";INPUT "WHAT CONVERSION DO YOU 

WANT (A-F)";A$ РО 
+115 IF А$="" THEN 110 CH 
+116 IF LEN(A$)<>1 THEN 110 AG 
+117 IF А$<"А" OR ASS"E" THEN 110 0J 
+120 A=ASC(A$)-64:REM TRANSLATE A$ INTO A 

N INTEGER FROM 1 (A) TO 6 (F) ко 


*130 IF А<1 OR А>6 THEN 30:REM IF А$<А OR 
А$>Е THEN MENU LI 
+135 ON А GOTO 140,310,470,670,850,1010 ОМ 
*136 REM ****** DECIMAL ТО HEX *******® GG 
*140 PRINT CHR$(147):PRINT "[7" "]DECIMAL 
-TO-HEX CONVERSION" от 
+150 PRINT:PRINT "[9" "]RANGE: 


о TO [8"9" 
]":РЕІМТ FA 


-160 A$="":PRINT:PRINT "TYPE DECIMAL NUMB 


ER (OR 'M' FOR MENU)":INPUT A$ JB 
*165 IF А$="" THEN 160 DI 
+170 FOR Lel TO 8:HEX$(L)="":NEXT L EN 
+180 IF А$="М" THEN 40 DO 
-190 FOR 1-1 TO 8:T$=RIGHT$(A$,L) DJ 
+195 IF ASC(T$)<48 OR ASC(T$)>57 THEN 160 NN 
*200 NEXT L MO 
+205 IF LEN(A$)<1 OR LEN(A$)>8 THEN 160 ЕН 
*210 N-VAL(AS) JO 
+220 1=8 DC 
+230 TMP=N:N=INT(N/16) KO 
+240 TMP=TMP-N*16 LH 
+250 IF ТМР<10 THEN HEX$(I)=RIGHT$(STR$(T 

MP),1):GOTO 270 LC 
+260 HEX$(1)=CHR$(TMP-10+ASC("A")) JF 
:270 IF NO THEN 1-1-1:6070 230 ШШ 


+280 PRINT "HEX: 

+290 FOR L=1 TO 8: баат HEX$(L) ; :NEXT L: " 

RINT 

*300 GOTO 160 ei 

*305 REM ****** HEX TO DECIMAL ********* JD 

+310 PRINT CHR$(147):PRINT "[7" то ы 

DECIMAL CONVERSION" 

*320 PRINT:PRINT "[9" "]RANGE: 0 TO (er ” 

]" : PRINT КІ 

+330 A$="":PRINT:PRINT "TYPE HEX NUMBER ( 
10 


OR 'M'FOR MENU NPUT A$ 

*340 IF А$="М" THEN 40 DO 
*350 IF LEN(A$)>8 THEN 330 EB. 
*360 N=) DD 
+370 FOR Lel TO LEN(A$) OB 
+380 HEX$(L)=MID$(A$,L,1) KP. 
+385 


IF НЕХ$(1,)<"0" OR HEX$(L)>"F" THEN 3 
30 СР 


+386 ТЕ HEX$(L)>"9" AND HEX$(L)<"A" THEN 
330 

+390 IF HEX$(L)<="9" THEN N=N*16+VAL(HEX$ 
(L)):GOTO 430 PE 
*400 IF HEX$(L)<"A" THEN 330 LL. 
*410 IF HEX$(L)>"F" THEN 330 MK 
+420) N=N*16+ASC(HEX$(L))-ASC("A")+10 BJ 
+425 IF №0 THEN 330 PK 
+430 NEXT L MO. 
+440 PRINT "DEC: ";N:PRINT IJ 
-450 GOTO 330 сс 
+470 REM ***** BINARY TO DECIMAL ******* AH 
+490 PRINT CHR$(147):REM CLEAR SCREEN EG 
+500 PRINT:PRINT "[6" "]BINARY-DECIMAL CO 
NVERSION" HJ 
*510 A$="":PRINT:PRINT "ENTER AN 8-BIT BI 
NARY NUMBER" PB 


+515 INPUT "(OR 'M' FOR MENU): ";A$: DU PA 
*517 IF A$-"M" THEN 46 


+52) IF LEN(A$)<>8 THEN 510 BL 
+530 FOR L-8 TO 1 STEP -1 BB 
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+540 BIT$(L)=MID$(A$,L,1) IN 
«550 IF BIT$(L)<>"6" AND BIT$(L)<>"1" THE 
N 510 МА 


*560 NEXTL:FORL=1T08:BIT(L)=VAL(BIT$(L)) ON 
+590 МЕХТЬ: ANS=0:M=256:FORL=1T08 МА 
*630 M=M/2:ANS=ANS+BIT(L)*M:NEXTL ВЕ 


*650 PRINT "DECIMAL:";ANS:GOTO510 
*670 REM **** DECIMAL TO BINARY ******* 
*680 PRINT CHR$(147):REM CLEAR SCREEN 
*690 PRINT:PRINT "[5" "]DECIMAL-BINARY CO 
NVERSION": PRINT PG 
*700 PRINT "[9" "]RANGE: 0 TO 255":PRINT GE 
“710 PRINT: BM$="":A$="":INPUT"TYPE А NUMB 
ER (OR "М! FOR MENU)"; A$:IFA$="M"THEN4O СА 
*715 IF А$="0" THEN 840 EG 
*720 IF VAL(A$)<1 OR VAL(A$)>255 THEN 710 EB 
*730 NR=VAL(A$) :FORL=8TOISTEP-1:Q=NR/2 ОК 
*760 R-Q-INT(Q) 
*770 IF К=0 THEN BIT$(L)="6":GOTO 790 
*780 BIT$(L)="1" 
“790 NR=INT(Q) :NEXTL 
*810 PRINT "BINARY: ";FORL=1T08:PRINTBIT$ 
(L); :NEXTL: PRINT: GOTO710 I 
*840 FOR L=1 TO 8:BIT$(L)="6":NEXT L:GOTO 
810 
*B45 REM ******* HEX TO BINARY Жж 
*850 PRINT CHR$(147):PRINT "[7" "ҮНЕХ-Т0- 
BINARY CONVERSION":PRINT AH 
«860 PRINT"[12" "]RANGE: 0 TO FF":PRINT DM 
*870 PRINT:PRINT "TYPE HEX NUMBER (OR 'M' 
FOR MENU) :":A$s"":INPUT A$ 
*880 IF А$="М" THEN 40 DO 
*890 IF LEN(A$)>2 OR LEN(A$)<1 THEN 870 ЕВ 
*900 НЕХ$(1)="":НЕХ$ (2) ="; FORLS1TOLEN(A$ 
) HEX$(L)=MID$(A$,L, 1) MJ 
*930 IFHEX$(L)«"O"ORHEX$(L) »"F'THEN870 
*940 ТЕНЕХ$ (Ь)>"9"АМОНЕХ$ (L) «"A"THEN870 
*960 NEXTL:IF HEX$(2)="" THEN HEX$(2)=HEX 
$(1):НЕХ$(1)="0" 1м 
“970 FOR 1=1 ТО 16:IF HEX$(1)=H$(L) THEN 
BIT$(1)-B$(L) HC 
*980 NEXTL:FOR Lel TO 16:IF HEX$(2)-H$(L) 
THEN BIT$(2)-B$(L) IG 
*995 NEXTL:PRINT:PRINT "BIN: "; 
:1000 PRINT BIT$(1);BIT$(2):GOTO 870 


PROGRAMMERS... 

Were always interested in looking at top-quality pro- 
grams for the Commodore home computers. However, 
а great many factors other than the talent of the pro- 
grammer contribute toward making a program top-qual- 
ity. Before submitting a program to Ahoy!, we recom- 
mend that you send a stamped and self-addressed let- 
ter-size envelope to Ahoy! Writers and Programmer's 
Guidelines, lon International Inc., 45 West 34th Street— 
Suite 407, New York, NY 10001. 
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JG 


CE 
DN 


EB 
GF 


*1010 REM ***** BINARY TO HEX ЖӘ ЈЕ 
*1020 PRINT CHR$(147):PRINT CI 
*1030 PRINT"[8" "]BINARY-HEX CONVERSION" CA 
*1040 PRINT:PRINT "ENTER AN 8-BIT BINARY 
NUMBER" FL 
*1050 A$-"":INPUT "(OR "М! FOR MENU): "ҘА 
$:PRINT: IFA$="M"THEN4G EF 
*1070 IF LEN(A$)<>8 THEN 1040 Dc 
*1100 FORL-8TOISTEP-1:BIT$(L)-MID$(A$,L,1 
) : IFBIT$(L)<>"O"ANDBIT$(L)<>"1"THENS10 
+1110 NEXTL:BIT$=BIT$(1)+BIT$(2)+BIT$(3)+ 
BIT$(4)+BIT$(5)+BIT$(6)+BIT$(7)+BIT$(8) BG 
+1120 TI$=LEFT$(BIT$,4):T2$=RIGHT$(BIT$ ,4 


KE 


):FORL=1T016 NM 
*1130 IF TI$-B$(L) THEN HEX$(1)=H$(L) IL 
*1150 NEXTL:FOR Lel TO 16:IF T2$=B$(L) TH 
EN HEX$(2)=H$(L) NK 


*1170 NEXTL:PRINT "HEX: 
:1180 GOTO 1040 


А 


FROM PAGE 60 CASSETTE BOOT 
“10 PRINT CHR$(147);CHR$(5):POKE 53280,2: 
POKE 53281,0 

*40 PRINT CHR$(19);"POKE 8192,0:POKE 44,3 
2:NEW" 


"SHEX$(1);HEX$(2) LF 
FO 


NI 


GK 
*50 PRINT CHR$(17);CHR$(17);"LOAD'CHR$(34 
)"RAID"CHR$(34) LG 
*60 POKE 198,10 NH 
*70 DATA 19,13,13,32,32,32,82,85,78,13 МЕ 
*80 FOR І-1 TO 10:READ X:POKE 6304I,X:NEX 

@, 


DISK BOOT 
*10 PRINT CHR$(147);CHR$(5):POKE 53280,2: 
POKE 53281,0 NI 
*20 FOR І-1 TO 6:PRINT CHR$(17):NEXT LJ 
*30 FOR Т=1 TO 16:PRINT CHR$(29);:NEXT:PR 
INT"LOADING" MN 
*40 PRINT CHR$(19);CHR$(31);"POKE 8192,0: 
POKE 44,32:NEW" co 
*50 PRINT CHR$(17);CHR$(17) ;"LOAD"CHR$(34 
)"RATD"CHR$(34)",8" BK 


“60 POKE 198,10 NH 
*70 DATA 19,13,13,32,32,32,82,85,78,13 МЕ 
*80 FOR Т=1 TO 10:READ X:POKE 6304I,X:NEX 
T 

MAIN PROGRAM 
*1 POKE53280,1:POKE53281 ,0: POKE646, 1 NN 
*9 REM 100-MAINLINE KE 
*10 REM 1000-ОМЕ-ТТМЕ INITIALIZATION A0 
“11 REM 1100-VARIABLES FOR BACKGROUND РН 
*12 REM 1200-SETUP CHAR SET DM 
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*13 REM 1300-DISPLAY SCORE 00 
*14 REM 1400-DISPLAY BACKGROUND GK 
*17 REM 1700-DISPLAY INSTRUCTIONS HF 
*19 REM 1900-СЕТ PLAYER INFO HO 
*21 REM 2100-READ MACHINE LANGUAGE PA 
*22 REM 2200-INIT MACHINE CODE PO 
*25 REM 2500-СВАЗН SOUND/DISPLAY MF 
*110 GOSUB 1000:ВЕМ ONE-TIME INIT MC 
“120 GOSUB 1100:ВЕМ VARS FOR BACKGROUND NA 
+130 GOSUB 1700:REM DISPLAY INSTRUCTIONS AJ 
*140 GOSUB 1200:REM SETUP CHAR SET NF 
“300 GOSUB 1900:REM GET PLAYER INFO cc 
+400 GOSUB 1400:REM DISPLAY BACKGROUND DG 
+420 GOSUB 2200:REM INIT MACHINE CODE NG 


+425 JV-PEEK(56320) AND31 : IFJV=31THEN425 
*430 SYS 49664:1F PEEK(49197)-0 THEN GOSU 
B 2500 

*435 HX=0:FOR Т=1 TO 29:IF ИБИС) ы 
)=83 OR HX(PL,1)<>0 THEN 445 

*440) PT(PL)=PT(PL)+10:HX(PL,1)=1:HX=1 ^ 
+445 NEXT 

*450 IF PEEK(49197)-0 THEN раар. 
1:GOTO 470 MK 


FF 


JJ 


*460 PT(PL)=PT(PL)+500:LV(PL)=LV(PL)+1 01 
«465 FOR Т=1 TO 29:HX(PL,I)-0:NEXT HJ 
*470 IF РЕЕК(49152)=0 AND НХ=1 THEN PT(PL 

)=PT(PL)+100 GN 
+480 GOSUB 1300:REM DISPLAY SCORE IJ 
*485 IF TL=) THEN 300 GD 
“490 GOTO 400 СА 


“999 END 
1000 ҺЕМ-------і ONE-TIME INITIALIZATION КІ 
*1005 РОКЕ53280,2:РОКЕ53281,0:РОКЕ646,1 ВІ 
"1010 X=RND(-TI):DIM ML(16),HL(29), HX(9, 2 
9):CT=0 ОР 
+1015 FOR I=1 TO 16:READ V 

+102) IF Ү<0 THEN GOSUB 50000:GOTO 1030 
*1025 ML(1)=V:CT=CT-V 

*1030 NEXT IA 
*1035 DATA 123,126,133,136,143,146,153,15 
6,-1116 LN 
-1046 DATA 843,846,853,856,863,866,873, E 
6,-6876 


MP 
IK 
HL 


11045 FOR 1=1 TO 29:READ V ke 
*1050 IF У<0 THEN GOSUB 50000:СОТО 1060 ІР 
*1055 HL(I)=V:CT=CT-V EK 
+1060 NEXT ТА 


*1065 DATA 81,88,91,98,101,108,111,118,-7 
96 MI 
100 DATA 881,888,891,898,901,908,911,91 
8,-7196 DH 
-1075 DATA 249,250,269,270,729,730,749,75 
0,-3996 MP 
*1080 DATA 483,499,500,516,517,-2515 EA 
+1090 SID=54272 JK 
*1092 СЕТ-1024:С0-55296:МС(1)-4:МС(2)-12: 
MC(3)=8:MC(4)=3 DH 
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+1094 DEF FNR(X)=INT(RND(1)*X)+1 PC 
*1096 SID=54272 JK 
+1098 RETURN IM 
*1100 КЕМ----- VARS FOR BACKGROUND HE 


+1110 RV$=CHR$(18):RF$=CHR$(146) :W1$=RV$+ 
 MERFSH"(8" "]":W2$-RV$4" "4RF$ FG 
*1120 11$=ВУ$+"[40" "]"+RF$ MN 
*1130 L2$=W1$+W2$+W1$+W2$+W1$+W2$4W1$4W2$ СВ 
+1140 L3$-Wl$4"[10" "]"4W2$4W1$4"[10" "]" 
+W2$ AP 
*1150 L4$=W2$+W2$+W2$+W2$+"[5" MS 
$4W2$+W1$+W2$+W2$+"[5" "]" 

+1160 LA$-LA$4W2$4W2$4W2$4W2$ MN 
*1170 L5$-W1$4W2$4W1$4"[10" "]'4W2$4W1$4W 
2$ HH 
*1180 CD$=CHR$(17) :CUS=CHR$(145) :CL$=CHR$ 


(157) :CR$=CHR$(29) : CS$-CHR$(147) NK 
*1185 HM$-CHR$(19) PF 
*1199 RETURN ІМ 
1200 ҺЕМ---- ---------СОРҮ CHARSET GE 
*1202 POKE 56334,PEEK(56334)AND254 DN 
*1205 POKE 1,PEEK(1)AND251 IM 
+1210 SYS 4t 567 ко 
+1215 POKE 1,PEEK(1)OR4 ВЕ 
+1220 POKE 56334,РЕЕК(56334)0К1 PD 


*1225 РОКЕ2864,0:РОКЕ2865,231:Р0КЕ2866, V 
6:РОКЕ2867,60 

1230 POKE 2868,24:POKE 2869,0:РОКЕ 2870," 

О:РОКЕ 2871,0 ND 

*1235 POKE 2696,0:POKE 2697,126:POKE 2698 
,120:РОКЕ 2699,120 ЕР 

*1240 POKE 2700,27:POKE 2701,27:POKE 2702 
,120:РОКЕ 2703,0 

-1245 POKE 53272,(PEEK(53272)AND240)0R2 

*1299 RETURN 

*1300 REM-— -DISPLAY SCORES GK 

+1302 PRINT CS$;CD$"PLAYER SCORE LEVEL 


тр 
IM 


LIVES LEFT" FL 
1305 PRINT"[6"-"] [5"-"] [5"="] [10"- 
*1310 TL=0:FOR Т=1ТОМР:РЬ$=" "+STR$(I)+" 

[3" "]" HJ 
*1315 SC$=STR$(PT(I))+" " BH 


+1320 IFLEN(SC$)<7THENSC$="_"+SC$:GOTO132 
0 JJ 
+1325 LV$=STR$(LV(I))+" " AP 
+1330 IFLEN(LV$)«7THENLV$-" "4LV$:G0TO133 
0 

+1335 TL=TL+L1(1):LI$="[4"_ "]"+STR$(LI(1) 
):IFLI(I)-UTHENLI$-"[3" "]*DEAD*" 

*1340 PRINT PL$;SC$;LV$;LI$:NEXT 

*1345 IF TL= THEN 1375 HK 
*1350 PL=PL+1:IF PL>NP THEN PL=1 

+1355 IF LI(PL)=0 THEN 1350 

+1360 IF NP>1 THEN PRINT CD$"NEXT PLAYER 
IS PLAYER";PL NG 
*1365 SYS 49673:FOR I-1 TO 500:NEXT 
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*1370 LVsLV(PL) : RETURN 
*1375 PRINT CD$;CD$"ANOTHER GAME? "; 
:1380 GET X$:IF X$<>"Y"AND X$<>"N"THEN 13 


80 CN 
*1385 PRINT Х$:ТР X$="N" THEN END LF 
*1390 RETURN IM 
*1400 REM—----—--—---DISPLAY BACKGROUND LL 
+1491 BOZ-FNR(16)-1:POKE53280, B02 ОР 
+1402 PRINT CS$:POKE53281,0:POKE646, 7 LG 


ND 
ME 


+1925 GET X$:IF X$=""THEN 1925 
*1956 IF X$«"1"OR Х$>"9"ТНЕМ 1925 


*1955 PRINT X$:LV-VAL(X$) DA 
*1960 FOR I-1 TO NP:LV(I)=LV:PT(I)=0:LI(I a 
)=5 

*1965 FOR Jel TO 29:НХ(І,Ј)=0:МЕХТ GA 
*1970 NEXT ТА 
*1995 PL=1:PT=(:RETURN DK 
*2100 КЕМ-- -LOAD MACHINE LANG НМ 


*1404 PRINT L1$;:FOR І-1 TO 4:PRINT L2$;: *2110 PRINT CD$;"[4" "][3'*"] LOADING MAC 
NEXT:PRINT L3$; GD HINE LANGUAGE [3'*"]";CD$ CB 
*1406 FOR 1-1 TO 4:PRINT L2$; :NEXT:PRINT *2120 FOR I-49408 TO 50716:READ V HH 
14$; :РЕТМТ 15$; СА +2130 IF У<0 THEN GOSUB 50000:GOTO 2150 ІК 
*1408 PRINT L4$;:FOR Isl TO 4:PRINT L2$;: *2140 PRINT TAB(15);I:PRINT CU$;:POKE I,V 
NEXT KO :CT-CT-V EI 
*1410 PRINT L3$;:FOR I-1 TO 4:PRINT L2$;: +2150 NEXT ТА 
NEXT:PRINT 11$; ВН +2200 КЕМ---------------- INIT ML STORAGE DB 
*2202 POKE49152,NH Gi 


*1420 PRINT"PLAYER";PL;"[7" "]LEVEL";LV;H 
M$ I 
*1425 ІХ=0 

*1430 FOR 1-1 TO 16:1Х=1Х+1:1Е IX>4 THEN 
ІХ-1 PN 
*1435 POKE CRT4ML(I),102:POKE CO+ML(I) ,MC 
(IX) : NEXT: NH26 

*1440 FOR Т=1 TO 29:IF НХ(РЬ,Т)<>0 THEN 1 
447 

*1445 pU CRT«HL(I),83:POKE CO+HL(I),10: 


IK 


АС 


NH=NH+ FK 
11447 ond IA 
*1450 POKE CRT+481,81:POKE С0+481 ,14 LB 
*1499 RETURN IM 


*1700 REM-----------] DISPLAY INSTRUCTIONS LK 
*1702 PRINT CS$;CD$"[17" "]RAID [3"I"]" ЈМ 
yo PRINT CD$"[8" "](C) 1983 BY LARRY C 
ATS" 
*1710 PRINT CD$"COLLECT ALL THE HEARTS WH 
ILE AVOIDING" 
*1715 PRINT"THE BUTTERFLIES. THEN EXIT T 
HE SCREEN" FH 
*1720 PRINT"ON THE RIGHT." HI 
*1725 PRINT CD$"SCORING:" NP 
*1730 PRINT"[3" "]10 POINTS PER HEART" IC 
*1735 PRINT" 100 POINTS FOR GETTING LAST 
HEART" DH 
*1740 PRINT" 500 POINTS FOR SAFE EXIT" CJ 
*1745 PRINT CD$;CD$ BP 
1750 GOSUB 2100: КЕМ LOAD MACHINE LANGUAG 
EO 


IA 


JF 


*1760 SYS 49670:REM PLAY SONG NJ 
*1799 RETURN IM 
*1900 REM. GET PLAYER INFO DK 


*1902 NP=0:PRIN’ 


RINT CD$"HOW MANY PLAYE 
RS[SS](1-9)? "; 


*1905 GET NP$:IF NP$=""THEN 1905 FO 
*1910 IF NP$<"1"0R МР$>"9"ТНЕМ 1905 KP 
*1915 PRINT NP$:NP-VAL(NP$) ML 


*1920 PRINT CD$"WHAT SKILL LEVEL (1-9)? " 
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К «2205 РОКЕ49154,1505/256:РОКЕ49153,1505-Р 


ЕЕК(49154)%256 
“2210 X=49157:FOR I-1 ТО 16:ML=CRT+ML(I) DO 
*2215 POKE X+1,ML/256:POKE X,ML-PEEK(X+1) 


*256 :X=X+2:NEXT NG 


DM +2220 X=RND(-TI):POKE49193, FNR(256)-1:POK 


£49194, FNR(256)-1 PH 
+2225 POKE49197,(:POKE49216,0 BC 
*2230 DLZ-255-12*LV:IF 101%<0 THEN DLZ=0 СС 
*2235 РОКЕ 49217,DL% HN 
*2299 RETURN IM 
*2500 ҺЕМ----------------- -CRASH EFFECTS OD 
+2510 РОКТХ=0ТО28 ;РОКЕЗТО+ТХ ‚0: NEXT. DP 
*2520 POKE SID424,15 AH 
+2530 


POKESID, 20: POKESID+1, 30:POKESID+5, 
:POKESID+6, 15%16+9 ЕР 
*2535 SPZ-PEEK(53272) IH 
*2537 SQZ-FNR(256)-1:IF(SQZAND240)-(SPZAN 


D249) OR(SQZAND15)=(SP%AND15)THEN2537 JJ 
*2540 POKESID+4,129:POKE53272,SQ% PK 
*2550 FORIX=1T020:NEXT:POKESID+4 , 128 AH 
*2560 FORIX-1TO3000:NEXT CN 
*2570 РОКЕ53272,5Р% IM 


*2599 RETURN IM 
“20000 A-49408:2H2-A/256:ZLZ2-A-(256*2H2) : 
POKE49152,ZH%:POKE49153,ZL% 
“20005 В-30000: ZHZ-B/256:2L2-B-(256*2H2) : 
POKE49154 ,ZH%:POKE49155,ZL% ОР 
“20010 А-РЕЕК(09153)(256%РБЕК(49152)): IF 
А=0 THEN END FA 
*20015 B=PEEK(49155)+(256*PEEK(49154)) 
*20020 С=А+15:0=0+1:1ІЕ 0>=50716 THEN С-50 
716:0=0 КЕ 
*20025 ZH%=D/256:ZL%=D-(256*ZH%) :POKE 491 
52,ZH%:POKE49153,ZL% CI 
-20630 D=B+10:ZHZ=D/256: ZLZ-D-(256*ZH2) :P 
ОКЕ 49154,ZH%:POKE49155,ZL% GE 
120040 PRINT" [CLEAR] [DOWN] [ DOWN]" ; EDAM с 


JL 


3 
ЕК >20050 FOR I-A TO C:I$-STR$(PEEK(I)):J$-R 
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IGHT$(I$,LEN(IS 
+20060 PRINT J$; 
720070 МЕХТ:РКІМТ "LLEFT] ":PRINT"GOTO 20 
010 
«20080 PRINT"[HOME]"'; СЕ 
20090 POKE 631,13:POKE 632,13:РОКЕ 198,2 ES 
+20095 END 
*21000 REM-——--DELETE ML x 
*21005 B-30000:2H2-B/256:ZL2-B-(256*ZHZ): 
POKEA9154 ,ZH2: POKE49155 ,ZLZ ОР 
*21015 В=РЕЕК(49155)+(256*РЕЕК (49154) ) JL 
*21030 О=В+10:2Н%=0/256:217=0-(256*2Н% ) : P 
ies 49154 ,ZH%:POKE49155,ZL% GE 
21040 PRINT" [CLEAR] [DOWN [ DOWN)"; B AM 
121070 PRINT "[LEFT] ":PRINT"GOTO 21015" EG 
“21080 PRINT" [НОМЕ]"; СЕ 
*21090 POKE 631,13:POKE 632,13:POKE 198,2 HG 
“30000 DATA 226,219,98,91,219,215,91,215, 
217,215,89,87,215,254,87,254,-2792 
“30010 DATA 226,219,98,219,228,219,100,91 
,230,224,102,217,231,219,231,219,-3073 HG 
*30020 DATA 231,219,103,91,226,217,98,89, 
226,219,226,219,226,219,98,91,-2798 FP 
*30030 DATA 255,255,226,219,98,91,219,215 
,91,215,217,215,89,87,215,254,-2961 
*30040 DATA 87,254,226,219,98,219,228,219 
,100,91,230,224,102,217,231,219,-2964 
+30050 DATA 231,219,231,219,103,91,226,21 
7,98,89,226,219,226,219,226,219,-3059 
«30060 DATA 98,91,228,224,100,96,226,219, 
98,91,224,217,96,89,219,215,-2531 
*30070 DATA 91,87,224,217,96,89,219,215,9 
1,87,217,214,89,86,219,215,-2456 OH 
*30080 DATA 219,215,219,215,91,87,215,210 
„87,82,215,210,215,210,215,210,-2915 
*30090 DATA 87,82,226,219,98,91,219,215,9 
1,215,217,215,89,87,215,254,-2620 
*30100 DATA 87,254,226,219,98,91,228,225, 
100,97,230,226,102,98,231,228,-2740 
*30110 DATA 103,100,230,226,102,98,231,22 
8,103,100,228,225,100,97,230,226,-2627 
*30120 DATA 102,98,231,228,103,100,230,22 
6,102,98,228,225,100,97,226,219,-2613 IN 
+30130 DATA 98,91,217,217,89,217,226,217, 
98,89,225,215,97,87,226,214,-2623 BN 
*30140 DATA 226,214,226,214,98,86,226,214 
,98,86,226,214,226,214,226,214,-3008 
+30150 DATA 98,86,255,255,255,255,255,255 
,255,255,255,255,255,255,255,255,-3754 ЕЈ 
“30160 DATA 76, 126, 194,76,78,196, 76, 125, EB 
96,76,142,196,0, 39, 4l "80-1717 
“30170 DATA 255, 255, 255,255,255,82,2,42, 2" 
55,80,0,40,255,81, 19 255, -2368 
-30180 DATA 255, 255, 255,255,255,81,1 assy 
255,81, 1,255 ,255,255, 255,255, 3224 Ic 
+30190 DATA 255,255, 255,255,255,42,42,255 
,255,40,40,255,255,255,255,255,-3224 
30200 DATA 0,231,126,60,24,0,0,0,0,0,0,2 


PP 


CP 


GE 
PM 
HO 
GI 


PD 


NM 


MD 
cL 


MP 


EP 
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4,60,126,231,0,-882 AI 
-30210 DATA 3,0,0,34,194,0,0,34,194,0,0,3 
4,194,0,0 ,0,2687 NJ 
*30220 DATA 15,32,32,32,255,104,30,24,134 
,126,250,6,172, 243, 230, 143, -1828 FA 
*30230 DATA 248,46,134,142,150,159,168,17 
9,189,200,212,225,238,253,32,188,-2763 LG 
*30240 DATA 194,24,173,45,192,109,64,192, 


240,1,96,32,38,196,32,130,-1758 л 
“30250 DATA 195,173,64,192,240,1,96,32,38 
,196,238,37,192,173,37,192,-2096 AN 


+30260 DATA йі, 1,10, 10, 10, 168, 162,0,185,6 
4,194,157,48, n 206, 232, 11493 ІР 
-30270 DATA 224, 8, 208,244,169,11,141,18,2 
12, 76,126,194, 56,173,1,192,-2053 
*30280 DATA 233,41,133,251,133,253,173,2, 
192,233,0,133,252,24,105,212,-2370 
*30290 DATA 133,254,160,41,140,68,192,173 
,0,220,41,15,170,188,16,194,-2005 
*30300 DATA 16,3,76,59,195,177,251,201,10 
2,208,4,238,64,192,96,201,-2083 PL 
*30310 DATA 83,208,9,206,0,192,32,52,196, 
76,3,195,201, 32, 24 ,-1728 KK 
-30320 DATA 76, 76, 195, 140, 68,192,160,41,1 
69,32,145,251, 177, 253, 172, 68, -2215 IJ 
+30330 DATA 192,145,253, 169,81,145, 251,15 
2,24,101,251,141,1,192,165,252,-2515 HK 
*30340 DATA 105,0,141,2,192,173,0,192,208 
517,173,1,192,201,6,208,-1811 PO 
“30350 DATA 10,173,2,192,201,6,208,3,238, 
45,192,172,68,192, 177, 253, -2132 EL 
-30360 DATA 24,105,1, Al, 15,208,2,169,1, 2d 
5,253,96,173, 0, 220, h, 11494 
-30370 DATA 15, 170,188,32,194,16,3,76 ME 
195,177,251,201,83,240, 4, -1904 KE 
*30380 DATA 201,32,208,3,76,239,194,173,0 
,220,41,15,170,188,48,194,-2002 NH 
*30390 DATA 16,3,76,59,195,177,251,201,83 
,240,4,201,32, 20 188,76, 12010 JL 
-30400 DATA 239, 194, 162, 30, 142,63,192,189 
,6,192,141,4,192,189,5,192, -2132 
+30410 DATA 141,3,192,32,179,195,174,63,1 
92,173,4,192,157,6,192,173,-2068 
*30420 DATA 3,192,157,5,192,202,202,142,6 
3,192,173,64,192,208,3,138,-2128 PM 
*30430 DATA 16,213,96,56,173,3,192,233,40 
,133,251,133,253,173,4,192,-2161 РІ 
*30440 DATA 233,0,133,252,24,105,212,133, 
254,169,81,162,3,188,12,194,-2155 LI 
«30450 DATA 209,251,240,19,202,16,246,32, 
13,196,41,3,170,188,12,194,-2032. 
*30460 DATA 169,32,209,251,240,4,96,238,6 
4,192,140,68,192,160,40,169,-2264 
*30470 DATA 32,145,251,177,253,172,68,192 
,145,253,169,102,145,251,152,24,-2531 Ju 
*30480 DATA 101,251,141,3,192,165,252,105 
,0,141,4,192,96,173,41,192,-2049 
+30490 DATA 42,77,41,192,106,238,42,192,1 
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РЕ 
КЕ 


HB 
MG 


MP 


со 
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you must enter DOS Boot in the usual manner, prescribed on pages 85 and 86, then enter 
To enter DOS Plus... the main program by using Flankspeed (see page 86) 


09,42,192,80,3,238,42,192,-1828 со 
*30500 DATA 141,41,192,41,127,96,174,65,1 
92,240,8,160,64,136,208,253,-2138 
*30510 DATA 202,208,248,96,169,20,141,15, 
212,169,1,141,19,212,169,200,-2222 
*30520 DATA 141,20,212,169,15,141,24,212, 
169,17,141,18,212,96,169,0,-1756 
*30530 DATA 133,251,133,253,169,208,133,2 
52,169,8,133,254,162,8,160,0,-2426 
-30540 DATA 177, 251, 145, 253,200,208,249,2 
30,252, 230,254, 202,208,240,162,21, 73282 Ер 
*30550 DATA 189,80, 194, 157,69,192,202,16, 
247,32,159,196,96,169,50, 141,-2189 
30560 DATA 91,192,169,193,141,92,192,32, 
110,196,32,170,197,96,169,0,-2072 
*30570 DATA 141,91,192,169,193,141,92,192 
,32,110,196,32,170,197,96,169,-2213 
“30580 DATA 4,44,69,192,240,24,173,70,192 
,141,2,212,173,71,192,141,-1940 
30590 DATA 3,212, 173, 72,192,141,5,212,17 
3,73,192,141,6, 212, 169, 2, -1978 AE 
*30600 DATA 44, 69, 192, 240,24,173,74,192,1 
41,9,212,173, 75, 192, 141 ,10,21961 
30610 DATA 212, 173,76, 192, 141,12,212,173 
,77,192,141,13,212, 169, 1, 44, -2040 
-30620 DATA 69, 192, 240, 24, 173, 78,192,141, 
16,212,173,79,192,141,17,212, -2151 
“30630 ПАТА 173, 80,192, 141, 19,212,173,81, 
192,141,20,212, 162, 3, 189, 82, 12072 
30640 DATA 192,157,21, 212, 202, 16,247,173 
,91,192,141,93,192, 173, 92,192, -2386 MN 
-30650 DATA 141,94,192,96, 169, 4,44,69,192 
,240,42,32,211, 197, 201, 255, -2179 LJ 
*30660 DATA 208,1,96, 201, 254,208,8,169,0, 
141,4,212,76, 69, 197, 175, -2018 MA 
-30670 DATA 95, 192, 142, 0,212,174,96,192, " 
42,1,212,10, 42, 41,1, 13, 11565 
:30680 DATA 86,192, 141, 4, 212,169,2,44,69, 
192,240,42,32,211,197, 201, -2034 
30690 DATA 255, 208, 1, 96, 201, 254,208,8,16 
9,0,141,11,212,76, 118, 197, -2155 IM 
*30700 DATA 174,95,192,142,7,212,174,96,1 
92,142,8,212, 10, 42, 41,1, -1740 LI 
-30710 DATA 13, 87,192, 141, 11,212,169,1,44 
769,192,240, 42, 32, 211, 197, -1853 
-30720 DATA 201,255, 208, 1,96,201,254,208, 
8,169,0,141,18,212,76, 167, -2215 СЕ 
30730 DATA 197,174,95,192,142,14,212,174 
„96,192,142,15,212,10,42, а, -1950 
30740 DATA 1 13,88, 192, 141, 18, 212,169,0, 
96,173,69, 192, Al, 7 ;240,-1652 
*30750 DATA 33,173,91,192,141,93,192,173, 
92,192,141,94,192,32,20, 197, 2048 
*30760 DATA 201,255,240,14,174,90,192,160 
,0,136,208,253,202,208, 248, 76,-2657 


ЕТ 
НР 
CI 
HF. 


ND 
AG. 
FK 
GJ 


FI 


GN 


PD 


KL 


DK 


EF 


ML 


BP 
KP. 
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*30770 DATA 189,197,96,173,93,192,141,224 
,197,173,94,192,141,225,197,173,-2697 
“30780 DATA 48,193, 238, 93, 192, 208, 3,238,9 
4,192,201,254,176,3, 32, 242,-2407 

*30790 DATA 197,96,170,41,15,168,185,102, 
194,141,95,192, 185, 114, 194, 141, 12230 
*30800 DATA 96,192,138,74,74,74,74,24,109 
,89,192,41,7, 73, 7,168, -1432" LA 
*30810 DATA 240, 9,78,96,192,110,95,192,13 
6,208,247,138, 96, -1837 BL 
«50000 IF ҮСТ THEN PRINT"ERROR IN DATA 
LINE #";РЕЕК(64)*256+РЕЕК (63) : END 
*50010 I=I-1:CT=0:RETURN 


DOS PLUS 


FROM PAGE 39 BOOT 
:40 ТЕТЕМ=ОТНЕМТЕМ=49152: де PLUS",8 


FA 
EE 


АА 


BI 
JG 


“41 POKE 53230,001:REM AUTO-VERIFY IF 1 
*42 POKE 53012,008:REM DEFAULT DRIVE # 
*43 POKE 51329,09 UPPER CASE 1525 
*44 POKE 53040, 01 REVERSE VIDEO es 
*45 POKE 53063,01 mca 

*46 POKE 50999, 14. BLACK HEX #'5 
*47 POKE 51069,14. RIAM] 
*48 POKE 51057,005: WHITE ASCII CHRS. 
+50 SYSTEM 


OF 
OA 
OI 
DC 
GH 
HJ 
FK 
ID 


нәзешеш 


DOS PLUS 
Last byte: CFFE 
00 
39 


First byte: C000 
C000: 
C008: 
6010: 
C018: 
C020: 
C028: 
C030: 
C038: 
C040: 
C048: 
C050: 
C058: 
C060: 
C068: 
C070: 
C078: 
C080: 
C088: 
C090: 
C698: 
СОАО: 
COA8: 
COBO: 
COBB: 


7C CA 


COCH: 
COC8: 
Соро: 
с0р8: 
CHEN: 
COE8: 
COFO: 
COF8: 
C100: 
C108: 
C110: 
C118: 
C120: 
C128: 
C130: 
C138: 
C140: 
C148: 
C150: 
C158: 
C160: 
C168: 
C170: 
C178: 
C180: 
C188: 
C190: 
C198: 
CLAN: 
C148: 
C1BO: 
C1B8: 
C1C0: 
C1C8: 
C1D0: 
C1D8: 
С1Е0: 
С1Е8: 
С1Е0: 
C1F8: 
C200: 
C208: 
C210: 
C218: 
C220: 
C228: 
C230: 
C238: 
C240: 
C248: 
C250: 
C258: 
C260: 
C268: 
C270: 
C278: 
C280: 
C288: 


http 


DO 09 20 E4 
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6F 
B9 
св 
СЕ 
85 
СЕ 
oD 
со 
68 
04 
68 
29 
F2 
D2 
c7 
38 
cD 
8D 
20 
20 
A9 
90 
02 
A2 
8D 
CF 
80 
AB 
81 
79 
c9 
CF 
03 
D7 
DB 
BB 
B7 
85 
B4 
00 
20 
9F 
48 
FO 
Bl 
06 
75 
АЕ 
20 
20 
А9 
68 
A9 
ЕО 
20 
El 
oD 
FO 


C290; 
C298: 
C240: 
C248: 
С2В0: 
С2В8: 
C2C0: 
C2C8: 
C2D0: 
C2D8: 
С2Е0: 
С2Е8: 
С2Р0: 
C2F8: 
C300: 
C308: 
C310: 
C318: 
C320: 
C328: 
C330: 
C338: 
C340: 
C348: 
C350: 
C358: 
C360: 
C368: 
C370: 
C378: 
C380: 
C388: 
C390: 
C398: 
C340: 
C348: 
C3B0: 
C3B8: 
C3C0: 
C3CB8: 
C3D0: 
C3D8: 
C3E0: 
C3E8: 
C3F6: 
C3F8: 
C400: 
C408: 
C410: 
C418: 
C420: 
C428: 
C430: 
C438: 
C440: 
C448: 
C450: 
C458: 


20 
4C 
CA 
06 
CD 
ЕВ 
zt 
FO 
68 
A2 
cs 
A2 
03 
03 
c9 
E6 
03 
FO 
00 
FO 
AD 
A9 
BD 
FO 
AD 
39 
48 
8C 
03 
4C 
03 
BO 
c7 
A9 
03 
16 
00 
00 
c7 
F3 
ЕЕ 
CB 
8D 
8D 
A9 
FO 
ЕЕ 
9B 
СА 
8р 
B2 
20 
03 
60 
02 
AA 
FO 
FO 


FO 
B9 
20 
BD 
c8 
8E 
CF 
FF 
АА 
03 
со 
03 
26 
А0 
AO 
c2 
E8 
FA 
8D 
ЕЕ 
9B 
00 
00 
FF 
9B 
[ 
BD 
A9 
BD 
38 
8D 
cc 
cD 
20 
AE 
90 
8D 
AC 
cD 
A9 
99 
A9 
D1 
D1 
BO 
03 
AQ 
03 
A9 
15 
AD 
20 
B2 
48 
20 
20 
12 
16 


http: 


60 
A9 
66 
СЕ 
20 
03 
9F 
01 
F6 
7C 
90 
08 
ЕЕ 
BD 
11 
20 
E7 
22 
03 
AO 
FO 
39 
20 
18 
FO 
AS 
BO 
20 
BO 
AA 
03 
00 
ЕС 
C7 
03 
4C 
03 
03 
ЕВ 
99 
CD 
8D 
26 
A9 
CE 
79 
18 
05 
20 
20 
B2 
FF 
B6 
10 
FF 
C4 
01 
03 
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C5B8: FF C9 OD DO Fl AD 
C500; 29 OF CD 14 CF DO 
C5C8: 14 CF 8D 9A 03 AD 
6500: 29 OF 8D 14 CF 85 
C5D8: A9 08 АО 01 20 BA 
С5Е0: 8E AQ CE 20 1E АВ 
С5Е8: A2 00 А0 02 20 BD 
C5F0: CO FF AD 14 CF 20 
C5F8: A9 61 85 B9 20 93 
C600: FF C8 B1 2D 20 A8 
C608: 90 DO 14 CC 9F 03 
C610: A5 2Е CD A0 03 F6 
C618: FF DO Еб E6 2E ро 
C620: 08 20 C3 FF 20 E7 
C628: 85 2Е 68 85 2D 20 
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C630: 
C638: 
C640: 
C648: 
C650: 
C658: 
C660: 
C668: 
C670: 
C678: 
C680: 
C688: 
C690: 
C698: 
C640: 
C648: 
С6В0: 
C6B8: 
C6C0: 
C6C8: 
C6D0: 
C6D8: 
C6E0: 
С6Е8: 
C6F0: 
C6F8: 
C700: 
C708: 
C710: 
C718: 
C720: 
C728: 
C730: 
C738: 
C740; 
C748: 
C750: 
C758: 
C760: 
C768: 
C770; 
C778: 
C780: 
C788: 
C790: 
C798: 
C740: 
C748: 
С7В0: 
С7В8: 
с7С0: 
C7CB8: 
C7D0: 
C7D8: 
С7Е0: 
С7Е8: 
C7F0: 
C7F8: 


C800: 
C808: 
C810: 
C818: 
C820: 
C828: 
C830: 
C838: 
C840: 
C848: 
C850: 
C858: 
C860: 
C868: 
C870: 
0878: 
C880: 
C888: 
C890: 
C898: 
C8A0: 
C848: 
C8BO: 
CBBB8: 
68С0: 
C8C8: 
C8D0: 
с8р8: 
С8Е0: 
C8E8: 
C8FO: 
CBFB: 
6900: 
C908: 
C910: 
C918: 
C920; 
C928: 
C930: 
C938: 
C940: 
C948: 
6950: 
C958: 
C960: 
C968: 
C970: 
C978: 
C980: 
C988: 
C990: 
C998: 
C940: 
C948: 
COBN: 


A9 
A2 
D2 
FO 
AE 
9B 
C4 
15 
14 
20 
A9 
15 
FO 
18 
3E 
CB 
A0 
BD 
c9 
30 
A7 
FO 
E8 
99 
4C 
03 
F6 
03 
DO 
96 
85 
A2 
01 
05 
A9 
DB 
99 
02 
06 
BD 
AT 
00 
06 
BD 
2C 
75 
75 
AD 
03 
00 
E8 
03 
10 
2C 
85 
BA 
AT 


gos 


: 00 
: 02 
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101 


СВАО: 
CBA8: 
CBBO: 
CBB8: 
CBCÓ: 
CBC8: 
CBD): 
CBD8: 
CBE): 
CBE8: 
CBFO: 
CBF8: 
CC00: 
CC08: 
CC10: 
CC18: 
CC20: 
CC28: 
CC30: 
CC38: 
CC40: 
CC48: 
СС50: 
СС58: 


CD70: 
CD78: 
CD80: 
CD88: 
CD94: 
CD98: 
СОАО: 
CDA8: 
CDB6: 
CDB8: 
CDC): 
CDC8: 
CDD): 
CDD8: 
CDE): 
CDE8: 
CDFO: 
CDF8: 
СЕ00: 
CE08: 
CE10: 
CE18: 
CE20: 
CE28: 
CE30: 
CE38: 
СЕ40: 
СЕ48: 
СЕ50: 
СЕ58: 
СЕ60: 
CE68: 
СЕ70: 
СЕ78: 
CE80: 
CE88: 
СЕ90: 
CE98: 
CEAN: 
СЕА8: 
СЕВО: 
СЕВ8: 
CEC): 
CEC8: 
CED): 
CED8: 
CEE): 
СЕЕВ: 
CEF): 
CEF8: 
СЕ00: 
CFO8: 
CF10: 
CF18: 
СЕ20: 
СЕ28: 
CF30: 
CF38: 


IMPORTANT! 


45 
49 
20 
20 
4C 
41 
02 
31 
20 
0р 
RE! 
31 
38 


20 
41 
20 


12 
45 
20 
20 
44 
OD 
c2 
зї 
20 
30 
ор 
ЕЕ 


00 
$ 12 
: 38 
37 
: 00 
FF 
2 21 
г 20 
: 0р 
SEE 
EET 

38 

36 
ЖЕР 
T 
38 
: 00 
4C 


TWO-COLUMN DIRECTORY 


FROM PAGE 30 MAIN PROGRAM 


00 
68 


+5 REM Ж бр 
*10 REM DEFINE VARIABLES AC 
515 REM Жж ср 
“20 POKE 53280,6: POKE 53281,0: POKE 646, 


1: REM SET SCREEN, TEXT COLORS 

*25 COL-1: DIM FI$(40) 

*30 WH$-CHR$(5): GR$-CHR$(30): YE$=CHR$(1 
58): OG$=CHR$(129): РИ$=СНЕ$( 156) LE 
*35 CL$=CHR$(147): HO$=CHR$(19): RV$=CHR$ 
(145)+CHR$(18): UP$=CHR$(145) HN 
*4( SP$=" ": FOR BL=9 TO 18: SP$=SP$+" " 


AF 


: NEXT KB 
*45 OPEN 6,8,0,"$": REM OPEN DIRECTORY Мр 
.50 REM Жоао oG 


*55 REM FIND AND PRINT DISK HEADER ND 
+6) REM жж е о 0G 
*65 PRINT CL$: REM CLEAR SCREEN BE 
*70 GOSUB 535: PRINT HO$; PD 


* 15! 


GET#6, BY$: IF BY$ <> CHR$(34) THEN 7 
5 IN 


CE 


+80 PRINT SPC(8) "[RVSON]";OG$;BY$; 

+85 GET#6, BY$: IF BY$ <> "" THEN PRINT B 
Y$;: GOTO 85 GN 
+90 PRINT WH$ FP 
+95 REM HORA AOR о AERA ЖЖЖ JL 
+100 REM FIND AND PRINT FILENAMES MM 
«105 REM ЖЖЖЖ кЖк КККК Л, 
+110 FOR ENTRY=9 TO 19; І=1+1: Е$="": 5К- 
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| Letters on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


9 NB 
+115 GET#6, BY$,BY$:GET#6, HB$,LB$ BL 
+120 GET#6, BY$: IF BY$ <> CHR$(32) THEN 

230 FL 
*125 GET#6, BY$: IF BY$ <> CHR$(34) THEN 

125 IM 
+130 IF COL/2=INT(COL/2) THEN PRINT ТАВ(1 

9)" "; MI 
+135 FOR BL=1 TO 16: GET#6, BY$ CF 
*140 IF BY$="" THEN 160 XH 
+155 IF BY$=CHR$(34) THEN SK-1: GOTO 160 AA 
*150 IF SK-0 THEN F$=F$+BY$ KM 
+155 GOTO 165 CK 
+160 BY$=CHR$(32) AA 
*165 PRINT BY$;: NEXT: FI$(I)-F$ AG 
*170 GET#6, BY$ PM 
+175 GET#6, BY$: IF ВУ$=СНЕ$ (32) THEN 175 ы 


“180 
“185 


PRINT ","; BY$; 
GET#6, BY$: IF BY$ <> "" THEN 185 
*190 NEXT: COL-COL + 1 BC 
«200 IFCOL > 2 AND COL/2 <> INT(COL/2) TH 
EN I-0:GOSUB 560 CM 
*205 IF COL-2 THEN PRINT HO$: GOTO 110 
*210 POKE 214,22: POKE211,0:PRINT RV$;YE$ 
;" ":GOSUB430: GOSUB 265: PRINT HO$;WH$ OD 
*215 IF COL/2 <> INT(COL/2) THEN FOR Ві,-/) 
TO 19: PRINT SP$: NEXT: GOTO 225 EL 
*220 FOR BL=0 TO 19: PRINT TAB(19);SP$: М 
EXT: GOSUB 580 AG 


oF 


TA 


«225 PRINT SP$;SP$;HO$: СОТО 110 LL 
+230 REM Жоо JN 
*235 REM PRINT BLOCKS FREE PD 


*24() REM Жоо JN 
*245 BL = ASC(HBS$4CHR$(0)): BL$=STR$(BL+2 
56 * ASC(LB$+CHR$(9))) EL 
*250 POKE 214,22: POKE 211,0: 
Би" 

«255 РОКЕ 214,23:РОКЕ 211,10: ҮКІНІ RV$;PU 
$;BL$;" BLOCKS FREE Urn CLOSE 6 : ВС=1 NE 
+260 GOSUB 430: GOSUB 265:PRINT wus + CL$ 

: END сс 
265 REM жо оо 

“270 REM DETERMINE USER'S CHOICE 

275 REM жао оов 

Ex g R=21: 5С-1024: Х=1864: D-54272: 

=0 

*285 СЕТ ВУ$:ТЕ BY$="" THEN 285 

“290 IF BY$=CHR$(133) THEN 65-1: GOSUB 34 
0: GS-0: RETURN: REM DISPLAY MORE DIR. 
*295 IF BY$=CHR$(134) THEN RUN: REM REPEA 
T DIR. MO 
"300 IF BY$=CHR$(135) THEN 385: REM LOAD 
A PROGRAM 
"305 IF BY$=CHR$(136) THEN GOSUB 465: RET 
URN: REM ERASE A PROGRAM 
*310 IF BY$=CHR$(17) THEN В=В+1: ОК=1: IF 


AHOY! 


PRINT RV$;Y 
FH 


HE 
MG 
HE 


FB 
DI 


ED 


103 


R>21 THEN R-21: REM CURSOR DOWN 

*315 IF BY$=CHR$(145) THEN R-R-1: OK=1: I 
F R<1 THEN R-1: REM CURSOR UP 

*320 ТЕ BY$=CHR$(29) THEN С-20: ОК=1: REM 
CURSOR RIGHT 

+325) IF PES THEN C=: ОК=1: REM 
CURSOR LI 

*330 IF Oke THEN 265 

+335 GOSUB 340: GOTO 285 

5340 REM Жок 

“345 REM MOVE CURSOR 

“350 REM Жоо 

"355 FOR Ү-Х TO Х+1 

*360 IF PEEK(Y) » 128 THEN POKE Y,(PEEK(Y 
)-128): POKE Y+D,1 HE 

*365 NEXT: IF GS THEN RETURN 

*370 POKE 211,C: POKE 214,R: PRINT UP$;: 
X=SC+(40*R)+C 

*375 FOR Y=X TO Х+1: IF PEEK(Y) < 128 THE 


LC 


CN 


N POKE Y,(PEEK(Y)+128): POKE Y+D,7 IB 
*380 NEXT: RETURN EJ 
*385 REM Жок OK 
*390 REM LOAD A PROGRAM DI 
+395 REM жа OK 
*400 CLOSE 6: Z-R:IF R>20 THEN RETURN ОР 
*405 IF С=20 THEN 2=2420 AG 


*410 IF FI$(Z)="" THEN RETURN 

27415 PRINT "[CLEAR][RVSOFF]LOAD"; CHR$(34 
); FIS(Z); CHR$(34);",8" 
*420 PRINT "а" ром)" JRUN[ 4" (UP ]" ]" EK 
*425 POKE 631,19: РОКЕ 632,13: POKE 633,1 
3: POKE 198,3: END LN 
*430 REM жк DP 
*435 REM BEEP 
:440 REM жәе 
*445 РОКЕ 54296,15: РОКЕ 54277,7: POKE 54 


278,133 AK 
*450 POKE 54273,28: POKE 54272,49: POKE 5 
4276,17 BJ 
*455 FOR Kel TO 150: NEXT: POKE 54276,18 0G 
*460 POKE 54296,0: RETURN LH 
+465 REM жеж CE 
*470 REM ERASE А PROGRAM FM 
+475 REM жеоо CE 
*480 POKE 214,25: POKE 211,0:PRINT RV$;"[ 
4" "JERASE — ARE YOU SURE (Y/N)?(7" "]" 

; EL 
*485 GET J$: IF J$="" THEN 485 GI 
*490 IF J$ <> "Y" THEN 500 EP 
*495 GOTO510 сс 
*500 GOSUB 535: GS-1:GOSUB 340: GS-0: IF 
BC THEN 250 DK 
*505 GOTO 210 BP 
*510 Z-R: IF C-20 THEN Z-Z420 HK 


“515 IF FI$(Z)="" OR R>20 THEN GOSUB535:G 
OTO 265 

*520 KL$="S0:"+FI$(Z) 

*525 OPEN 15,8,15: PRINT#15, KL$: CLOSE15 


LB 
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: RUN PC 
+535 REM жодоо LO 
*540 REM PRINT COMMAND LINE GD 
+545 REM жооок LO 


*550 POKE 214,25: POKE 211,0 JI 
*555 PRINT RVS4GRS+" FI-MORE F3=REPEAT 


F5eLOAD F7=ERASE ";; RETURN KJ 
*56) REM Жакс оосо оек FC 
+565 REM SET FILENAMES TO NULLS BF 
+570 REM Зоо Е FC 
B FOR Kel TO 20: Р1$(К)=""; NEXT: RETU 
MI 
E^ FOR К=21 TO 40: FI$(K)="": NEXT: RET 
URN EM 


SUBROUTINE (See article) 


*5 REM Жооок GD 
*10 REM DEFINE VARIABLES AC 
15 REM Жожо GD 
*20 POKE 53280,6: POKE 53281,0: POKE 646, 
1: REM SET SCREEN, TEXT COLORS BJ 
*25 COL=1 ND 
*30 WH$-CHR$(5): GR$=CHR$(30): ҮЕф-СНВ9(1 
58): OG$=CHR$(129): PU$=CHR$(156) LE 
*35 CL$=CHR$(147): HO$=CHR$(19): ЮЕ, 


(145)+CHR$(18): UP$=CHR$(145) 

*40 SP$=" ": FOR BL=9 TO 18: SP$=SP$+" " 

: NEXT K 
*45 OPEN 6,8,0,"$": REM OPEN DIRECTORY Мр 


*5() REM Жа о оо о 0G 
*55 REM FIND AND PRINT DISK HEADER ND 
+60) REM жже ожо о о 0G 
*65 PRINT CL$: REM CLEAR SCREEN BE 


*75 GET#6, BY$: IF BY$ <> CHR$(34) THEN 7 
5 IN 


*80 PRINT SPC(8) "[RVSON]";0G$; BY$; CE 
+85 GET#6, BY$: IF BY$ <> THEN PRINT B 
Y$;: GOTO 85 GN 
+90 PRINT WH$ FP 
595 REM Ж о оо JL 
*100 REM FIND AND PRINT FILENAMES MM 
*105 REM жж о жеж JL 
*110 FOR ENTRY=0 TO 19: І=1+1: Е$="": SK= 

5 NB 
*115 GET#6, BY$,BY$:GET#6, HB$,LB$ BL 
“120 GET#6, BY$: IF BY$ <> CHR$(32) THEN 
230 

+125 GET#6, BY$: IF BY$ <> CHR$(34) THEN 
125 

иы IF COL/2-INT(COL/2) THEN PRINT даң 
9) 

135 FOR BL=1 TO 16: GET#6, BY$ e 
*140 IF BY$="" OR BY$=CHR$(34) THEN ВУ$=С 
HR$(32) 0A 
*165 PRINT BY$;:NEXT FA 
*170 GET£6, BY$ PM 


*175 GET#6, BY$: IF BYS-CHR$(32) THEN 175 MC 
*180 PRINT ","; BY$; JM 
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+185 GET#6, BY$: IF BY$ <> "" THEN 185 СЕ 
*190 NEXT: COL-COL + 1 BC 
+205 IF COL=2 THEN PRINT HO$+"[DOWN]": GO 
TO 115 J 
+210 PRINT" [DOWN][12" "][RVSON]PRESS А KE 
Y[RVSOFF] AE 


«211 GETJ$:IFJ$="" THEN 211 LI 
*212 PRINT HO$--"[DOWN] [ DOWN]" ; МН 
*215 IF COL/2 <> INT(COL/2) THEN FOR ВІ,-/) 


TO 
*220) 


19: PRINT SP$: NEXT: GOTO 225 ом 
FOR BLeO TO 19: PRINT TAB(19);SP$: N 
PA 


EXT 

*225 PRINT SP$;SP$;HO$;"[DOWN]": GOTO 110 KC 
+230 REM жож CJ 
*235 REM PRINT BLOCKS FREE EA 
5240 REM же CJ 


*245 BL = АЗС(НВ$+СНК$(0)): BL$=STR$(BL+2 
56 * ASC(LBS4CHR$(0))) ор 
«255 РОКЕ 214,23:РОКЕ 211,10:PRINT RV$;PU 
$;BL$;" BLOCKS FREE ";: CLOSE 6: ВС-1 JO 


K D U 
FROM PAGE 25 


The Bug Repellent line codes listed to the right of the program 

lines of DSKDU are tor the C-64 only. If you are typing in the 

program on a VIC 20, you must use the VIC 20 Bug Repellent 
line codes found on pages 106-107. 


*1 N$="*DSKDU*":N1$="BY MARK JOHANSEN" АВ 
*2 DA=8:GOTO8000 PC 
*10 REM*HEX IN DG 
12 №=0:ТЕ LEN(H$)=9 THEN RETURN JE 
*14 FOR HX=1TOLEN(H$) :N1=ASC(MID$(H$,HX,1 

)):N1-N1-48:IF N1>9 THEN N1-N1-7 PN 
*16 N-N*164N1:NEXT FJ 
*18 RETURN IM 


“1000 REM*READ о! 
+1010 PRINT"[CLEAR] [ВУЗОМ ]" ; N$ : PRINT"[RVS 


*2130 PRINT JJ 
*2140 FOR L=P TO P463 STEP 4:PRINT HX$(L/ 
16) ;HX$(LAND15) ;":"; EC 


С +2150 FOR BY=L TO L+3:PRINT HX$(DZ(BY)/16 


);HX$(DZ(BY)AND15);" ";:NEXT DE 
*2160 FOR BY-L TO L*3:C$-CHR$(DZ(BY)):IF 
CS«" " OR C$>"[BACKARROW]" OR C$=CHR$(34 


) THEN С$="." JA 
*2170 PRINT C$;:NEXT PF 
*2180 PRINT:NEXT FA 
“2200 REM*ALLOW MODS HO 
+2210 1=0:С=0 JA 


«2220 BY=P+L*4+C/2:HX=CAND1:H1$(0)=HX$(D&% 
(BY) /16) :H1$(1)=HX$(D%(BY)AND15) :C1-INT( 
C*1.5) 

*2225 POKE 781,L43:POKE 782,С1%3:РОКЕ 783 


,0:5Ү565520 LL 
*2230 POKE 204,0 JJ 
*2240 GET I$:IF 1$="" THEN 2240 ко 
“2250 POKE 204,1:PRINT Н15(НХ); CB 
*2260 IF 1$="[Е1]" THEN Р-Р-64:60702100 ОА 
«2270 IF I$="(F3]" THEN Р-Р464:60702100 ЕК 
*2280 IF I$2"[F7]" THEN 1000 NF 
*2285 IF I$="(F4]" THEN Т=0%(0) :5=0% (1) :6 


0701110 КР 


«2290 IF I$-"[DOWN]" THEN 2750 GA 
+2300 IF I$="{RIGHT]" THEN 2700 HL 
2310 IF I$-"[UP]" THEN 2800 BJ 
«2320 IF I$-"[LEFT]" THEN 2850 PG 
*2330 IF I$-"[F8]" THEN 3000 oD 
“2340 IF I$="(F2]" THEN 4000 00 
“2350 IF 1$="[НОМЕ]" THEN 2210 IF 
*2400 IF 1$<"0" OR I$>"F" OR 1$>"9" AND I 


$«"A" THEN 7000 OA 


“2410 PRINT "[LEFT]"I$; CJ 
+2430 Н1$(НХ)=1$:Н$=Н1$(0)+Н1$(1) AB 
B +2450 GOSUBIO:DZ(BY)-N 10 


*2460 POKE 781,L+3:POKE 782,C/2+15:POKE 7 
BJ 


ON]";NI$:PRINT АА 83,9:SYS65520 
*1020 INPUT"TRACK" ; H$ :GOSUB10: T-N ME .2470 C$-CHR$(DZ(BY)):IF C$«" " OR C$>"[B 
*1030 INPUT"SECTOR" ;H$:GOSUB10:S=N CE  ACKARROW]" OR C$-CHR$(34) THEN C$-"." II 
*1110 PRINT#15,"U1:2,0,"T;S:GOSUB9000:IF +2480 PRINT C$; DM 
ER»0 THEN 1000 OF .2490 REM FALL THRU INTO CURSOR RIGHT 10 
*1120 PRINT#15,"B-P:2,0" NP *2700 REM CURSOR RIGHT NK 
+1130 DZ(0)20:POKE 828,PEEK(71):POKE 829, *2710 С=С+1:1Е C>7 THEN С=0:60Т02750 HJ 
PEEK(72) :SYS880 DG 2720 GOTO2220 EP 
*1160 6051/89000:ТЕ ER»0 THEN 1000 BE *2750 REM CURSOR DOWN IM 
«2000 REM*VIEW/MOD BL “2760 L=L+1:IF 1,215 THEN L=) FP 
*2010 P=) DF +2770 GOTO2220 EP 
*2100 REM FLASH SCREEN LG “2800 REM CURSOR UP CK 
+2102 IF Р<0 THEN Р-192 AN “2810 L-L-1:IF L<) THEN L=15 CA 
*2104 IF P5192 THEN Р=0 АВ *2820 GOTO2220 EP 
*2110 PRINT"[CLEAR]TRACK ";HX$(T/16);HX$( +2850 REM CURSOR LEFT LJ 
T AND 15) KH +2860 C-C-1:IF С<0 THEN C-7:G0TO2800 ко 
+2120 PRINT"SECTOR ";HX$(S/16);HX$(S AND *2870 60702220) EP 
15) HN, *3000 REM*WRITE FL 
AHOY! 105 


ttp://ww 
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*3010 PRINT"[CLEAR]PREPARING TO WRITE" NG -8210 DATA 840:ВЕМ SETUP IO 
*3020 PRINT" TRACK ";HX$(T/16);HX$(T AND1 *8220 DATA 173,60,3:REM LDA 828 HL 
5);" SECTOR ";HX$(S/16);HX$(S AND15) CJ -8230 DATA 174,61,3:REM LDX 829 MJ 
“3030 PRINT:PRINT"<RET> TO WRITE":PRINT"A +824) DATA 133,251:REM STA 1251 60 
NY OTHER KEY TO ABORT" BM +8250 DATA 134,252:REM STX !252 HA 
*3040 GET I$:IF 1$="" THEN 3040 NB +8260 DATA 169,0:REM LDA #0 IG 
*3050 IF I$<>CHR$(13) THEN 2100 CJ +8270 DATA 141,62,3:REM STA 830 GE 
*3100 REM DO WRITE LE *8280 DATA 96,-1:REM RTS DD 
“3110 PRINT#15,"B-P:2,0" NP +8300 DATA 860:ВЕМ ADVANCE POINTER NC 
*3120 PRINT"WRITING [3"."]" LI +8319 DATA 24:REM CLC JD 
*3130 0%(0)=0%(0):РОКЕ 828,PEEK(71):POKE *8320 DATA 165,251:REM LDA !251 EE 
829,PEEK(72) :SYS910. GE +8330 DATA 105,2:REM ADC #2 НВ 
*3140 РЕТМТ#15,"02:2,0,";Т;$:60$089000:ТЕ *8340 DATA 133,251:REM STA 1251 60 
ER THEN 2100 AP +8350 DATA 165,252:REM LDA 1252 CK 
*3150 GOTO2100 EI +8360 DATA 105,0:REM ADC #0 GN 
+4000 REM*QUIT AG +8370 DATA 133,252:REM STA !252 DM 
*4010 CLOSE2:CLOSE15 BI -8380 DATA 96,-1:REM RTS DD 
*4020 PRINT"[CLEAR]DONE [3"."]" FO >8400 DATA 880:КЕМ READ ROUTINE EI 
*4030 POKE 204,0:END FO +8410 DATA 162,2:REM LDX £2 KA 
* 7000. REM*HELP 00 -*8420 DATA 32,198,255:REM JSR CHKIN MP 
*7010 PRINT" [CLEAR]DSKDU HELP":PRINT PN +8430 DATA 32,72,3:REM JSR SETUP DB 
*7020 PRINT"Fl PREVIOUS PAGE" BL *8440 DATA 32,207,255:REM JSR CHRIN OH 
*7030 PRINT"F3 NEXT PAGE" РЈ *8450 DATA 160,1:REM LDY #1 IH 
*7050 PRINT"F7 READ SECTOR" HC >8460 DATA 145,251:REM STA (251,Y BE 
*7060 PRINT"F4 READ NEXT SECTOR" NL +8470 DATA 32,92,3:REM JSR ADVPTR MM 
*7065 PRINT"[3" "JIN FILE" РА *8480 DATA 206,62,3:REM DEC 830 GM 
*7070 PRINT"F8 WRITE SECTOR" BA +8490 DATA 208,241:REM BNE -15 AG 
*7080 PRINT'CRSR CONTROLS" КЕ +8500 DATA 32,204,255:REM JSR CLRCHN DI 
*7090 PRINT"[3" "]UP,DOWN,LEFT, RIGHT" IP +8510 DATA 96,-1:REM RTS DD 
*7100 PRINT"HOME TOP LEFT CORNER" KN +8600 DATA 910:REM WRITE ROUTINE HF 
*7120 PRINT"6-9, A-F"' GN +8610 DATA 162,2:REM LDX #2 KA 
*7130 PRINT"[3" "JOVERWRITE NIBBLE" IC +8620 DATA 32,201,255:REM JSR CHKOUT MB 
*7140 PRINT"F2 QUIT" MD +8630 DATA 32,72,3:REM JSR SETUP DB 
*7200 PRINT:PRINT"(ANY KEY TO CONT)" FC +8640 DATA 160,1:REM LDY #1 IH 
*7210 GET I$:IF 1$="" THEN 7210 MO •8650 DATA 177,251:REM LDA (251,Y BG 
“7220 GOTO2100 EI +8669 DATA 32,210,255:REM JSR CHROUT OK 
“8000 REM*INIT AD +8679 DATA 32,92,3:REM JSR ADVPTR ММ 
*8020 OPEN15,DA,15 СА +8689 DATA 206,62,3:REM DEC 830 GM 
“8030 OPEN2,DA,2,"#" IM +8699 DATA 208,241:REM BNE -15 AG 
«8040 DIM D&(255) ML +8790 DATA 32,204,255:REM JSR CLRCHN DI 
*8050 DIM HX$(15):FOR ВҮ=07015:ВЕАр HX$(B “8710 DATA 96,-1:REM RTS DD 
Y):NEXT FP -8720 DATA -1 OE 
*8060 DATA 0,1,2,3,4,5,6,7,8,9,A, B,C,D,E, “9000 REM DISK CHECK DG 
F BK +9020 INPUT#15,ER,ER$,ET,ES EC 
+8070 DIM H1$(1) КК +9030 IF ER=0 THEN RETURN EM 
“8100 REM LOAD ML ROUTINES PO -9056 PRINT "[CLEAR][RVSON]"'; ER; ER$: PRINT 
"8110 READ AD:IF AD<O THEN 8190 LA —"[RVSON]";ET;ES EF 


*8120 READ B:IF В>=0 THEN POKE AD,B:AD-AD 


+1:GOTO 8120 BK 
*8130 GOTO 8110 FJ 
*8190 60701000 FC 
*8200 REM READ/WRITE ROUTINES BL 


+906) PRINT:PRINT"F2 TO QUIT":PRINT"ANY 0 
THER KEY TO CONT" 

*9070 GET I$:IF I$-"" THEN 9070 NM 
+908) IF I$="(F2]" OR 1$="[Е1]" THEN 4000 GH 
+9090) RETURN IM 


VIC 20 BUG REPELLENT LINE CODES FOR DSKDU 


#1 ТАВ #12 :JE #18 :IM £ 1020:ME 
#2 :РС #14 :PN # 100 E 
#10 :DG #16 :FJ #1010: :0F 
106 AHOY! 
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# 1120:NP # 2000:BL # 2102:AN # 2120:HN 
# 1130:DG % 2010:DF % 2104:АВ # 2130:JJ 
# 1160:ВЕ # 2100:LG # 2110:KH % 2140:EC 


jamesitalia.net/ 


IMPORTANT! 

# 2150:DE # 2320:PG # 4000:AG 
$ 2160:JA % 2330:0D # 4010:BI 
# 2170:PF % 2340:0D # 4020:FO 
# 2180:FA # 2350:IF # 4030:Е0 
# 2200:HO # 2400:0А # 7000:00 
# 2210:JA % 2410:CJ # 7010:PN 
# 2220:NC # 2430:АВ # 7020:BL 
# 2225:LL # 2450:10 # 7030:PJ 
# 2230:JJ # 2460:BJ # 7050:НС 
# 2240:КО # 2470: 1 # 7060: № 
# 2250:CB # 2480:DM # 7065:РА 
4 2260:0А # 2490:10 # 7070:ВА 
# 2270:EK # # 7080:KF 
# 2280:NF # # 7090:1P 
# 2285:KP # # 7100:KN 
# 2290:GA # # 7120:GN 
# 2300:HL # # 7130:1С 
# 2310:BJ # 


| Letters ‘on white background are Bug Repellent line codes. Do not enter them! Pages 85 and 86 explain these codes 
and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


# 7140:MD % 8200:BL # 8380:DD % 8640:ТН 
# 7200:FC # 8210:10 # 8400:EI # 8650:BG 
# 7210:MO % 8220:HL # 8410:KA $4 8660:0K 
# 7220:EI % 8230:MJ % 8420:MP # 8670:MM 
# 8000:ВТ # 8240:GO # 8430:DB # 8680:GM 
# 8001:4D % 8250:HA % 8440:0H % 8690:AG 
# 8020:GA # 8260:IG # 8450:IH % 8700:DI 
# 8030:1M # 8270:GE # 8460:ВЕ # 8710:DD 
$ 8040:ML # 8280:DD # 8470:MM # 8720:0E 
# 8050:FP % 8300:NC % 8480:GM % 9000:DG 
# 8060:BK # 8310:JD # 8490:AG # 9020:EC 
# 8070:KK # 8320:EE # 8500:DI % 9030:EM 
# 8100:PO % 8330:HB % 8510:DD % 9050:EF 
# 8110:LA % 8340:60 % 8600:HF % 9060:HM 
# 8120:BK % 8350:CK % 8610:KA % 9070:NM 
# 8130:FJ # 8360:GN # 8620:MB # 9080:GH 
# 8190:FC % 8370:DM % 8630:DB % 9090:1М 


—— -- --- 


РТ 


“30 POKES1,0: POKES52, 15: POKE251, 0; POKE252, 


15:РОКЕ828,0 PH 
FROM PAGE 52 VIC 20 VERSION +40 PRINT"SELECT OPTION" JG 
+10 ВЕМ*** VIC 20 жак — HL +50) PRINT: PRINT"1. COPY SEQ FILE" ко 
+12 REM***SAMPLE INTERRUPT ROUTINE*** 10 +60 PRINT:PRINT"2. COPY РСМ FILE" MC 
+15 REMY BASIC LOADER вы BJ •70 PRINT:PRINT"3. END" BC 
+20 REM***LOADS INTO CASSETTE BUFF*** 1С +80 PRINT JJ 
+25 REM*** 15Ү5828! TO ACTIVATE *** НК +90 GETR$:IFR$-'"THENOO EA 
+30) ВЕМ*** 'SYS854' TO DEACTIVATE *** ЕН +100 A=VAL(R$):IFA<1ORA>3THENSO EH 
+40 FORK-828T0866 КЕ +110 ONAGOTO120,140, 290 IK 
+5) READA : POKEX , A: NEXT : END OH +120 INPUT"SEQ FILENAME"; ANS OL 
*100 DATA120,169,73,141,20,3,169,3,141,21 +130 F$="S":GOTO160 ВА 
,3,88,96,165,197,141,255,30,169,4 IP -140 INPUT"PGM FILENAME"; АМФ 0А 
*200 DATAl41,255,150,76,191,234,120,169,1 .150 Е$="Р" LE 
91,141,20,3,169,234,141,21,3,88,96 АО -160 OPEN3,8,3,AN$ JA 
+170 SYS3584:CLOSE3 HG 
C-64 VERSION +180) IFPEEK(252)-159THENPRINT"FILE TOO LO 
«10 ВЕМ*** C64 ж* — CA — NG':STOP NK 
+12 REM***SAMPLE INTERRUPT ROUTINE*** | GI .190 POKE253,PEEK(828):POKE254, PEEK(252) : 
+15 ВЕМ*** BASIC LOADER ж* — KM —POKE251,0:POKE252, 15: POKE828, 10 
+20 REM**KLOADS INTO CASSETTE BUFF*** РМ -200 PRINT"SWAP DISKS IF PUTTING COPY ON 
+25 REM*** 15Ү5828! TO ACTIVATE *** СЕ А NEW DISK":PRINT NB 
*30 ВЕМ*** 'SYS854' TO DEACTIVATE *** ВМ .210 INPUT"NAME OF NEW FILE";AN$ LB 
+40 FORX-828TO866 КЕ +220 OPEN3,8,3,ANS$+","+F$+",W":SYS3618:CL 
*5() READA:POKEX, A:NEXT: END OH 0$ЕЗ 
*100 DATA120,169,73,141,20,3,169,3,141,21 *230 PRINT"- COPY COMPLETE -":GOTO30 CB 
,3,88,96,165,197,141,255,4,169,4 +240 DATA 162,3,32,198,255,32,228,255,172 
1200 DATA141, 255,216, 76,49,234,120,169,49 ,60,3,145,251,200,140,60,3,192 DA 
,141,20,3,109,234,141,21,3,88,96 АМ -250 DATA 0,208,8,230,252,166,252,224,159 
1240,4,165, 144,240, 228,32, 204,255 LI 
SUPER DUPER +260 DATA 96,162,3,32,201,255,172,60,3,17 
7,251,196, 253,208, 6, 166,252 MD 
FROM PAGE 29 +270 DATA 228,254,240, 16,200,140,60,3,32, 
+5 РОКЕ53280,6:РОКЕ53281,0:РОКЕ646,1 см 216,255,192,0, 208,230, 230,252, 76 
+10 PRINTCHRS(147) FG +280 DATA 42,14,32,204,255,96 HL 
+20) FORX=3584T03660:READZ:POKEX,Z:NEXTX АР +290 END 1С 
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+50) REM ж ооо оосо NK 
COMMODORE FONT EDITOR *510 REM * PUT EDIT WINDOW ON SCREEN * DC 


FROM PAGE 82 “520 КЕМ жакс седо NK 
*10 REM COMMODORE FONT EDITOR ЕН +530 REM JD 
*20 REM PROGRAMMED BY STEPHEN REED EC .540 PRINT"[HOME][3"[DOWN]"] [BLACK][RVSO 

*30 REM JD NJ"; BJ 
*40 REM IF YOU DON'T WANT TO TYPE IN JO +550 PRINT"[3" "]12345678[3" "]" CJ 
*50 REM THIS PROGRAM, COPIES ARE NG -560 PRINT" [ВУЗОМ] [PURPLE][s M][10" "][ 

*60 REM AVAILABLE ON DISK WITH SEVERAL KH в NJ[BLACK] " 60 


*70 REM CHARACTER FONTS. SEND $12.95 TO: ЕК -570 PRINT" [ВУЗОМ] [PURPLE] [s М] 8" "Jf 
н E 


*80 REM JD sN] [BLACK] 
*90 REM FONT EDITOR LG .580 PRINT" [RVSON]1[PURPLE] [RVSOFF][8" 
*100 REM 2404 S. MYRTLE AVE. LJ "J[RVSON] [BLACK]1" ID 
*110 REM SANFORD, FL 32707 IE .590 PRINT" [RVSON]2[PURPLE] [RVSOFF][8" 
*120 REM JD "][RVSON] [BLACK]2" KH 
*130 REM JD «600 PRINT" [RVSON]3[PURPLE] [RVSOFF][8" 
*14() REM Экон CE — "J[RVSON] [BLACK]3" он 
*150 REM * INITIALIZE PROGRAM DATA * DE +619 PRINT" [RVSON]A[PURPLE] [RVSOFF][8" 
+16) REM жо оодо ос CE — "](RVSON] [BLACK]4" PL 
*170 REM JD -620 PRINT" [RVSON]5[PURPLE] [RVSOFF][8" 
*180 РОКЕ53281,1:Р0КЕ53280,7 BP "J[RVSON] [BLACK]5" PD 
*190 POKES52,48:POKE56, 48: CLR: DIMR$(7) РС -630 PRINT" [RVSON]6[PURPLE] [RVSOFF][8" 
+20) РОВА=0ТО7 : READR(A) : NEXTA АА "J[RVSON] [BLACK]6" NH 
“210 DATA 128,64,32,16,8,4,2,1 BJ +640 PRINT" [RVSON]7[PURPLE] [RVSOFF](8" 
«220 PRINT" [CLEAR ]"CHR$(142)CHR$(8)"[ BLUE "J(RVSON] [BLACK]7" OH 
J[RVSON]"; CM +650 PRINT" [RVSON]B[PURPLE] [RVSOFF][8" 
“230 СС-1:0С-1 CI "J[RVSON] [BLACK]8" оі, 
+240 PRINT"[9" "]COMMODORE FONT EDITOR[9" *660 PRINT" [RVSON] [PURPLE] [s N][8" "][ 
011551"; ЕС s М] [BLACK] " EM 
1250 PRINT'[BLACK][RVSON][4O"[c T]"]" ВМ -670 PRINT" [ВУЗОМ] [PURPLE][s N][10" "][ 
“260 GOSUBS10:REM GET E WINDOW AG s M][BLACK] " HC 
*270 GOSUB740:REM MENU ON SCREEN HD +686 PRINT" [RVSON][3" "]12345678[3" "][R 
*280 GOSUB920:REM DISPLAY CHARACTERS CC  VSOFF]":RETURN OF 
“290 GOSUB1070:REM UPDATE SCRN FOR СС GK .690 REM т 
“300 ТЕРЕЕК(12288)-60ТНЕУ430 AG -700 REM Экон CE 
*310 REM JD -710 REM * PUT MAIN MENU ON SCREEM * HG 
“320 REM Ses es EHS HOSA во CE +720 REM жж ее о ео СЕ 
*330 REM ж DOWNLOAD ROM CHARACTERS * FA +730 REM JD 
*34() REM жж жж жж жюри CE •740) PRINT"[HOME][3" [ DOWN" ] [22"[ ВТСНТ]"] 
*350 REM JD [RED][RVSON][3"*"] MENU [3"*"][BLACK]" DN 
“360 PRINT"[HOME] [ 16" [DOWN] ]" ;0$; " [BLUE] *750 O$="[17"[RIGHT]"]" GJ 
PLEASE WAIT 30 SECONDS" HM +76% PRINT:PRINTO$;"1] SAVE FONT" MB 
*370 POKES6334, PEEK (56334) AND254 DN .770 PRINTO$;"2] LOAD FONT" LB 
"380 POKEl,PEEK(1)AND251 IM +780 PRINTO$;"3] EDIT CHARACTER" DB 
“390 FORA=0T02047 CP -790 PRINTO$;"4] MOVE CHARACTERS" GK 
*400 POKEA+12288, PEEK(A+53248) :NEXT JD +800 PRINTO$;"5] SWAP CHARACTERS" LF 
410 POKE1,PEEK(1)OR4 BE +81 PRINTO$;"6] INVERSE CHARACTERS" JN 
+420 POKES6334,PEEK(56334)ORI:GOSUB1070 ІВ +820 PRINTO$;"7] GET ROM CHARACTERS" EL 
+430 GOSUB740 CL +839 PRINTO$;"8] DISPLAY DATA VALUES" EE 
+440 POKES3272, (PEEK(53272)AND240)412 LI +849 PRINTO$;"9] DECREMENT DISPLAY" CE 
450 605081390:ТЕА$<"О"ОВА$>"9"ТНЕМ450 DJ +850 РЕТМТО$;"0] INCREMENT DISPLAY" FJ 
“460 A=VAL(A$) : ТРА=ОТНЕМА=10 ІВ +860 PRINT:PRINTOS;"[GREEN][3" "]JSELECT О 
+57) ONAGOSUB1700, 1890, 2070,2430, 2620,275 PTION?[5" : RETURN KM 
0,2920,3010,3170,3240 LN +870 REM JD 
+48) СОТО 450 CN -880 REM жна NK 
*490 REM JD >890 REM * PUT CHARACTER DATA ON LINE * ВС 
108 AHOY! 
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+90) REM жожо NK 
*910 REM JD 
+920 PRINT" [HOME] [ 18" [DOWN]" ]" ; NP 
*930 PRINT"[24" "]"; BJ 


+940 PRINT"[BLACK ]@ABCDEFGHIJKLMNO" ; 
+950 PRINTPQRSTUVWXYZ[ [EP] ] [UPARROW] [ВАС 
KARROW] !"+ОНЕ$(34)+"#$7&' ()*+,-./012345 


67"; км 
*960 PRINT'89:;«-»?[s *][s A][s B][s C][s 
DJs E][s Е][в G][s Н][з 1] [3 J]Is Кв 
L][s M][s N][s 0][в P][s Q][s R][s Sl(s 
ТИБІЛІз У] [ м] [в Х][з Ү][в 216 +][с 
-][s -JEPI][c *]" HB 
+970 FORA=94T0255 DD 
*980 POKE1024418*404244A,À NP 
+990 РОКЕ55296%18%40%2444,0 BL 


*1000 NEXT IA 
*1010 PRINTCHR$(146) :RETURN cc 
*1020 REM JD 


+1030 REM жака жеоо NK 
*1040 REM * PUT CURRENT DATA ON SCREEN * 
1050 REM Жо д о соо 
*1060 REM 

*1070 РОКЕ55296-:18%4/)0С%24,0:0С-СС 

*1080 POKE55296+18*40+CC+24 ,2 

*1090 PRINT"[HOME][ 15" [ DOWN ]" ] [ 5" [RIGHT]" 
J[PURPLE][RVSON]CODE ";RIGHTS(STR$(CC),L 
EN(STR$(CC))-1); 

*1100 IFCCKlOTHENPRINT" " 

*1110 IFCCClOUTHENPRINT" " 

*1120 PRINT"[HOME] [6" [ DOWN ]" ] [RVSOFF]" 
ORA=GT07 :P$="" 

*1130 В=РЕЕК(12288+А+(СС*8) ) 

*1140 ТЕВ=>128ТНЕМ2Р=1 :В=В-128 

+1150 605081320 

*1160 IFB=>64THENZP=1:B=B-64 

*1170 GOSUBI320 

*11860 IFB=>32THENZP=1:B=B-32 

*1190 605081320 

*1200 IFB=>16THENZP=1:B=B-16 

*1210 605081320 

*1220 IFB-»BTHENZP-1:B-B-8 

*1230 605081320 

+1240 IFB=>4THENZP=1 : B=B-4 

+1250 GOSUB1320 

+1269 IFB=>2THENZP=1 : B=B-2 

*1270 GOSUB1320 

*1280 IFB=1THENZP=1 

*1290 GOSUB1320 

+1300 PRINT"[BLACK][4" [ RIGHT]" ]" ; P$: NEXTA m 
“1310 RETURN 

+1320 IFZP=1THENP$=P$+"[s Q]'":ZP-0:RETURN ЕЧ 
+1330 Р$=Р$+" ":RETURN HC 


*1340 REM 
*1350 
*1360 
*1370 
.1380 


REM Жоо е Е 


REM * SCAN KEYBOARD FOR INPUT * 
REM жок о ЖКК ККЖ 


REM 


+1390 СЕТА$:ТЕА$=""ТНЕМ1390 KB 
*1400 RETURN IM 
*1410 REM JD 
*1420 REM жо о о СЕ 
+1430 REM * ERASE MENU AREA E ME 
-144( REM жожо о ооо СЕ 
“1450 REM JD 
-1460 PRINT"[HOME][3" [DOWN]" ]" ; GL 
1470 FORA-0TO13 MN 
*1480 PRINTO$;"[22" "]" FG 
*1490 NEXTA: RETURN JA 
*1500 REM JD 
51510 REM жоо ооо оо СЕ 
“1520 REM * FORMATTED NUMERIC INPUT Ж FJ 
1530 ups Зо о о ооо о ооо СЕ 
+1540 R JD 


:1550 PRINT" [3"[e D)" J[3" [LEFT]"]" ; :Z=0:B 
$="" FA 


+1560 FORA«1TO3:GOSUBl600:IFZ-lTHEN1580 HH 
*1570 NEXT ТА 
+1580 W=VAL(B$) :IFW»255THENPRINT"[3"[LEFT 
]"]"; :G0TO1550 РЕ 
*1590 RETURN IM 
*1600 GOSUB1396 FI 
*1610 ТЕА$=СНК$ (13 )ТНЕМ2=1 : RETURN NH 
*1620 IFA$<"O"ORA$>"9"'THEN1600 ON 
*1630 B$-B$4A$ IG 
D +1640 PRINTA$; : RETURN BH 
*1650 REM JD 
1660) REM жа ккк ЖЖ 06 
“1670 REM * SAVE FONT DATA TO DISK * FH 
51680 REM эко кк 0G 
*1690 REM JD 
*1700 GOSUB1430 FP 
1710 PRINT"[HOME] [4" [DOWN] ^] " — [GREEN 
][3"."]SAVE DATA[3"."][BLACK]" NC 


+1720 PRINT: PRINT" [ 10" [ DOWN ]" ]"О$"ЕТЬЕЗРЕ 


с"; ом 
+1730 INPUTN$:IFLEN(N$)»8THEN1700 JO 
+1740) OPEN 1,8,12,N$+",P,W" FA 
“1750 PRINTA , CHRS (0) &CHRS (48) 5 NA 
+1760 FORI-0TO255 AB 


“1770 ТИ НОНЕ] [8" [DOWN ]" ]"O$" [B" [RIGH 


т)" кї 
+1780 В$="" FO 
+1790 FORJ=(T07 IC 
+180) B$=B$+CHR$(PEEK(12288+J+I*8)):NEXT MF 
-1810 PRINTé1,B$; KC 
+1820 NEXTI:CLOSEl:GOSUB1430 66 
+1839 GOSUB740: RETURN PK 
+1840 REM JD 
+1850 REM Хххккккк кк кк к жж оов GH 
+1860 REM * LOAD FONT DATA FROM DISK * ЕЕ 
+1870 REM see SSO aa Ra GH 
+1889 REM JD 
-1890 GOSUB1430 FP 
+1900 a ra Leg DO aan [GREEN 

J[3"."]LOAD DATA[3"."] [BLACK ]" DF 


51918 PRINT: PRINT"[10"[DOWN]" ]"O$"FILESPE 


о INPUTN$:IFLEN(N$)»8THEN1700 
*1930 OPEN 1,8,12,N$+",P,R" 

*1940 GET#1,A$,A$ 

*1950 FORT=0T0255 

+1960 НОЕ LBS ИШЕН!" ТОГЕ 
T)"]";1 KI 
+1970 ЕОВЈ=0Т07 IC 


*1980 СЕТ#1,А$:А=0:ТЕА$<>""ТНЕМА=А$С(А$) KJ 
*1990 POKE12288*J«I*8, A: NEXTJ BO 
*2000 NEXTI:CLOSE1:GOSUB1430 GG 
“2010 GOSUB740:RETURN PK 
*2020 REM JD 
*2030 REM Ж ЖЖ oG 
*2040 REM * EDIT CHARACTER ROUTINE * PL 
“2050 REM Жоо о oG 
*2060 REM JD 
%2070 605081430 FP 
*2080 ОЕ LOMI НЕ Ө 


EDIT CHARACTER[BLACK ]" 
*2090 PRINT:PRINTO$"CHARACTER # "; TW 
550 


HENB=B+R(R) сс 
+2340 NEXTR: RETURN 

+2350 X$-" [ 8" [RIGHT ]"]" :Y$-" [8" [DOWN]"" 
PRINT"[HOME ] [5" [DORN]" [3 [RIGHT] " }" ;LEF 
T$(X$,X) ;LEFT$(Y$, Y); LJ 
+2360 IFG=2THENPRINT"[BLACK][s Q]":G=1:G0 
SUB2350: RETURN Kc 
+2370 IFG=3THENPRINT" [BLACK] ":G=1:GOSUB2 
350: RETURN 

*2380 K=PEEK(12274+X+Y*40) : TFK=81THENPRINT 
"[RED][s W]": RETURN 

+2390 PRINT" [RED]+":RETURN от 
12400 POKE12274X*40, K : POKES54994X4Y*40, 

О: RETURN LG 


BB 


-2410 PRINT"[HOME] [ 6" [DOWN]" |"; : FORA=1T08 
:PRINT"[A"[RIGRT]"][8" "]" AM 
+2420 NEXTA:G=1:K=32:GOSUB2350:RETURN DH 


*2430 605081430 ЕР 
*2440 ERU EROS CD OS ЕТА 
СНАК NA 
*2450 05081550: Ml=W BJ 
*2460 PRINT:PRINTO$"ENDING CHAR ";:GOSUB1 
550 EH 


*2100 СС=:605081070 CM -2470 M2=W IJ 
E GOSUBI430:PRINT"[HOME][4"[DOWN]"]"O +2480 PRINT:PRINTOS"MOVE TO CHAR "; :GOSUB 
$;"[PURPLE]EDIT CHARACTER[BLACK |" NN 1550 MO 
+2126 PRINT: PRINTO$"[E][6" "]ERASE BUFFER +2490 IFM1>M2THEN2430 LM 
GO +2500 IFW<=M2 ANDW=>M1 THEN 2430 BP 
“2130 PRINTOS"[*]/[.] SET PIXEL" *2510 PRINT:PRINTOS;"[BLUE]  [3"."]MOVING 
*2140 PRINTOS"[SPACE] RESET PIXEL":PRINT [3". "][ BLACK]" FP 
OS"[RETURN] FINISHED" +2520 FORA-(/TO(M2-M1) EM 


Eo PRINT:PRINT:PRINTO$" CURSOR KEYS MO 
BK 
*2160 PRINTO$" EDITING CURSOR." NI 
*2170 X=4:Y=4:G=1 :GOSUB2359 XC 
*2180 GOSUB1390:IFA$-"E"THENGOSUB2410:GOT 
02180 GE 
“2190 ТЕА$=" "THENG«3:G0SUB2350:GO0TO2186 
*2200 IFA$="*"ORA$=". "THENG=2:GOSUB2359:G 
0702180 
+2210 IFA$-CHR$(13)THEN2280 ІР 
*2220 IFA$<>"[UP]"ANDA$<>"[ DOWN ]"ANDA$<>" 
[LEFT ]"ANDA$<>" {RIGHT ]"ТНЕМ2180 PI 
«2230 IFA$="[UP]"ANDY>1THENG=0:GOSUB2400: 
Y«Y-1:G0SUB2350: GOTO2186 DM 
“2240 IFA$="{ DOWN ]"ANDY<8THENG=0:GOSUB240 
0:Ү-Ү-ғ1:60511В2350:60702180 
«2250 IFA$="[RIGHT]"ANDX<8THENG=0:GOSUB24 
00:Х=Х+1:605082350:60Т02180 
*2260 IFA$="(LEFT]"ANDX>1THENG=0:GOSUB240 


OA 
CE 


0:Х-Х-1:6051/82350:00702180 OH 
+2270 GOTO 2180 FA 
*2280 ЕОВА-0Т07 IP 
*2290 GOSUB2320:REM GET BYTE IN B OA 
*2300 POKE12288+(CC*8)+A,B:NEXTA II 


*2310 GOSUB1070:GOSUB1430:GOSUB740:RETURN PO 
“2320 B-0:FORR-0TO7 АА 
*2330 U=PEEK(1268+(A*40)+4R) : EFU-870RU-81T 


110 АНОУ! 


*2530 FORB=(T07 
*2540 POKE12288+B+(A+W)*8, PEEK(12288+B+(A 


4M1)*8) DE 
+2550 МЕХТВ, А DI 
+2560 GOSUB1430:G0SUB740: RETURN IK 
+2570 REM JD. 
+2580 REM жооок — СН 
*2590 REM * SWAP CHARACTER DATA SUBR Ж DK 
+2600 REM Жоо аак СН 
+2610 REM JD 


*2620 GOSUB1430;PRINT"[ BLACK ] [HOME] [4" [DO 
WN]"]"OS"STARTING CHAR ";:GOSUB1550:SC-W HF 
*2630 PRINT: PRINTOS"ENDING CHAR "; :GOSUB1 
550: EC=W 
+264 PRINT: PRINTO$"SWAP WITH ";:GOSUB155 
0 ВА 
*2650 ҒОКА-0ТО(ЕС-5С) :ЕОВВ=ОТО7 CL 
*2660 T=PEEK(12288+B+(A+W)*8) BM 
*2670 POKE12288+B+(A+W)*8, PEEK(12288+B+(A 
+SC)*8) MA 
“2680 POKE12288+B+(A+SC)*8,T:NEXTB,A JK 
*2690 605081430:60$08740:605081070: RETURN ЕТ 


AL. 


*2700 REM JD 
2710 REM жоо оо 06 
"2720 REM * REVERSE CHARACTER DATA * KH 
+2730 REM жо со оо 06 
“2740 REM JD 
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+2750 GOSUB1430 
+2760 PRINT" [HOME ][4"[DOWN]"]"; :ТЕУТ=ОТНЕ 
NPRINTO$"[ BLACK ]REVERSE DATA" 


FP 


“2770 PRINT:PRINTO$"STARTING CHAR ";:GOSU 

В1550 АЕ 
"2780 SC=W КЕ 
“2790 PRINT:PRINT:PRINTO$"ENDING CHAR ";: 

GOSUB1550 LF 
*2800 IFW<SCTHEN2750 LK 
*2810 IFYT=1THENRETURN FP 


*2820 PRINT:PRINT:PRINTO$"  [BLUE][3"."]R 
EVERSING[3"."] [BLACK ]" OM 
+2830 FORA=(TO(W-SC) :FORB=0TO7 OB 
+2840 POKE12288+B+(A+SC)*8 , 255-PEEK (12288 
+B+(A+SC)*8) : NEXTB, A DG 


+2850 GOSUB1430:GOSUB740 LH 
“2860 60581070: RETURN со 
“2870 REM т 
+2880 REM жж оед жі ос 
*289( REM * СЕТ ROM CHARACTER DATA Ж FC 
5290) REM жо д до жде 0G 
*2910 REM JD 
*2920 YT=1:PRINT" [BLACK ]":GOSUB2750:YT=9 IG 
+2930 PRINT:PRINTO$"[BLUE][3"." ]LOADING Е 
ROM ROM[3"."][BLACK]" DK 
+2940 POKE56334 , PEEK(56334)AND254 DN 
*2950 POKEL,PEEK(1)AND251 IM 
“2960 FORA=SC*8TOSC*8+(W-SC)*8+7 IL 
+2970 POKEA+12288, PEEK(A+53248) :NEXT JD 
+298 POKE1,PEEK(1)OR4 BE 
+2990 РОКЕ56334,РЕЕК(56334)081 PD 


“3000 GOSUB1430:GO0SUB740: GOSUB1070: RETURN EI 

*3010 605081430 ЕР 

*3020 РЕТМТ"[НОМЕ] [4" [DOWN]" ]"0$; " [BLACK] 
CHARACTER NUMBER "; IL 


“3030 605081550 GG 
*3040 PRINT: PRINT:TP=CC:CC=W:GOSUB1070 ЈР 
+3050 PRINT"[HOME][5"[DOWN]"]":FORA-0TO7 PL 
+3060 PRINTO$;PEEK(12288+A+(W*8)) CP 


*3070 МЕХТА 
*3080 РЕТМТ:РЕТМТО$;"[4" "]SPACE ТО RETUR 


М" HK 
+3090 GOSUB1390:CC-TP : GOSUB1076 EL 
*3100 GOSUB1430:GOSUB746 LH 
*3110 GOSUB1070; RETURN со 
“3120 REM JD 
-3130 REM жоо е CE 
*3140 REM Ж DECREMENT CHARACTER ——» * JG 
*3150 REM Жж о с оо СЕ 
“3160 REM JD 
+3170 СС-СС-1:ТЕСС<ОТНЕМСС-255 NC 
“3180 GOSUB1070:RETURN со 
+3190 REM JD 


«3200. REM Яо 


*3210 REM * INCREMENT CHARACTER —> * 
«3220. REM Жасоо о 
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+3230 REM JD 
+3240 CC=CC+1 : IFCC>255THENCC=1 BG 
+3250 GOTO 3180 FB 
FROM PAGE 81 

*1 REM ------- THE TILE GAME ---------- м 
-2 REM (С) MURDOCK & BLACKBURN '84 FG 
+3 REM 10/15/1984 HL 
-4 REM JD 


p 19 ҒОВХ-1Т06: READCH : COS (X) CHR$ (CH) : МЕХ 
in 


л DATA 28,158,156,30,150,5 

+120 В1$=ОНЕ$(154): B2$=CHR$(31) : Basoan” 
152) :C1$=B1$:C2$=CHR$(144) 

*130 SC$=CHR$(147) :HM$=CHR$(19) 

+135 PRINT SC$;CO$(6) 

“140 РОКЕ53280,2: РОКЕ53281, 2: ШЕТТЕ 
)"HOLD ON, JUST A SECOND" 

*150 10$=НМ$: FORX=1T024: M M CUM 
NEXT 


n 


*160 U3$="" : FORX=1T03:U3$=U3$+CHR$(145) : d 
EXT HD. 
*170 R3$="" : FORX«1T03: R3$:R3$4CHR$(29) :NE 
XT NF 


*180 
EXT 
*190 SP$="" :FORX=1T039:SP$=SP$+" ":NEXT 
*200 SZ$2CHR$(17)4CHR$ (29) 4CHR$ (110) «CHR$ 
(163)4CHR$ (109)4CHR$ (157) 4CHR$(157) oc 
+210 SZ$=SZ$+CHR$(157)+CHR$(17)+CHR$(125) LM 
+220 T$=CHR$(111)+CHR$(183)+CHR$(183)+CHR 
$(183)+CHR$(112)+L5$+CHRS(17) 0J 
«230 T$=T$+CHR$(165)+R3$+CHR$(167)+L5$+CH 
R$(17) FC 
9 ee AR a^ 165)+R3$+CHR$(167)+L5$+CH 
R$(17 FC 
*250 T$=T$+CHR$(198)+CHR$(175)+CHR$(175)+ 
CHR$(175)+CHR$(186 )+L5$+U3$ HB 
+260 BS$=B2$:FORX=1T05:BS$=BS$+CHR$ (166) : 
NEXT EE 
«270 BS$=BS$+L5$+CHR$(17):BT$="":FOR X=1T 
04: BI$=BT$+BS$ : NEXT: BS$=BT$+B1$ 
«280 DIMCH$(24):FOR Xe1TO24:READCH$:CH$(X 


L5$="" : FORX=1T05 :L5$=L5$+CHR$(157):N св 
ВР 


)=СН$ :МЕХТ DP 
“290 DATA A,B,C,D,E HI 
*295 DATA F,G,H,I,J KD 
“300 DATA K,L,M,N,O NC 
*305 DATA P,Q,R,S,T OF 
“310 DATA U,V,W,X GE 


*320 IF PEEK (49475) <>234 OR РЕЕК(49806)<> 
24THEN GOSUB9010 JE 
+330 PX=0:POKE53280, PX: POKE53281 , PX 
+340 PRINTSC$:K$s"" 

+350 PRINTDO$;SP$;B1$;:GOSUB8910:GOTO369 00 
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*360 PRINTHM$; 
“370 ROW=5:COL=1 :ВВ=5:ВС=5:МУ=0:С0$=Т$ 
*380 PRINT DO$;SPC(7);CO$(2);"JOYSTICK OR 


KEYBOARD (J/K)"C2$; DD 
:390 GETKKS: TFKKS=""THEN399 ю 
“400 IFKK$="J" THENA20 oD 
+510 IFKK$O"K" ТНЕМЗ90 IF 
+420 PRINTDO$ ;SP$; :GOSUB3040 DA 


+430 REM ЖЖЖ MIX Y/N PRINT *** 
1440 PRINTCOS(4); DO$;LEFT$(SP$,15);"MIX 
(Y/N)"; HJ 


*450 СЕТАЗ: ТРАЗ=""ТНЕМ450 НЕ 
*460 IFA$= "Y"THEN PRINTDO$;SP$; : GOSUB304 
O:GOSUB4O10:MVeO:PRINTDO$;SP$;:GOTO490 ЈР 


*470 ТЕА$= "М"ТНЕМ PRINTDO$;SP$; :GOTO496 
*480 GOTO450 CN 
«490 С0$=Т$:605083040:ТЕКК$="К" ТНЕМ7000 
“500 60702010 

1000 REM ЖЖЖ SCROLL ROUTINE жж 

*1010 MV=MV+1:PRINTDO$B2$"MOVE"B1$;MV; 
1020 ON D G0TO1036,1050, 1060, 1086 

*1030 ML=49661:R=5:VU=0:COL=COL-HU 0G 


“1040 60Т01090:ВЕМ *LEFT HG 
*1050 ML=49735:R=5:VU=9:GOTO1090:REM ЖЕТ JM 
*1060 ML=49416:R=4:HU=0:ROW=ROW-VU GH 
+1070 GOTO1090:REM *UP AP 
*1080 ML=49483:R=4:HU=9:GOTO1090:REM ЖОН KP 
*1090 Le(COL-1)*548:Te(ROW-1)*442 DO 
*1100 H=(HU+1)*5:V=(VU+1)*4 LF 


*1110 POKE251,L:POKE252,T:POKE253,H-1:POK 


E254,V-1 HF 
*1120 605086510 GD 
+1130 FOR Х-1Т0К LC 
+1140 POKE254,V-1:POKE2,1 NE 
*1150 SYS ML DM 
*1160 NEXT ТА 
*1170 POKE S+4,16 FG 
*1180 RETURN IM 
*1500 GET K$:1F К$=""ТНЕМ1 500 II 
*1510 RETURN IM 
*2000 REM ЖЖЖ — READ JOY STICK Жж BO 
*2010 JV=PEEK (56320) GA 
*2020 GETK$:IFK$=CHR$(147)THEN359 JP 


*2030 FR=JVAND16:IF FR<>16THEN GOSUB5010: 
60702010 

“2040 JV=15-(JVAND15) 

*2050 IF JV=0 THEN GOSUB2110:GOTO2010 
*2060 IF JV=1 AND ROW>1 THEN ROW=ROW-1:GO 
$083010:60Т02010 

*2070 IF JV=2 AND ROW<5 THEN ROW=ROW+1:GO 
SUB36010:G0TO2010. EJ 
*2080 IF JV=8 AND COL<5 THEN COL=COL+1:GO 
$UB3010:GOTO2010 NH 
«2090 IF JV=4 AND COL>1 THEN COL-COL-1:GO 
SUB3010:GOTO2010 LI 
+2100 GOTO2010:REM * INVALID DIRECTION Ж CP 
*2110 PRINTC1$;T$; со 


*2120 PRINTC2$;T$; DL 
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+2130 RETURN IM 
*3000 REM ****®*%*® СЕТ CURSOR жак — LE 
*3010 IF FL THEN CU$-BS$ PO 


+3020 PRINTC1$;CU$;C2$; EJ 


“3030 CU$-T$ PA 
*3040 R=(ROW-1)*4+2:C=(COL-1)*5+8 MP 
*3050 POKE251,R:POKE252,C JI 
“3060 SYS 49806 KL 
“3070 PRINTCU$; 10 
*3080 IF ROW=BR AND COL=BC THEN FL=1:GOTO 

3100 BA 
3090 FL«6 HJ 
*3100 RETURN IM 
+4000 REM "eek RANDOM MIX жж — JJ 


*4010 ASRND(RND(0)) : PRINTLEFT$ (DO$, 5) ; B2$ 
;""MIXING"B1$; : GOSUB3040 MH 


+402) FOR MX=1 TO 20 СА 
+4030 605084180 GC 
+4040 IFA2=1THENROW=BR:COL=BC-A:GOTO4060 HJ 
+4050 ROW=BR:COL=BC+A HN 
“4060 IF COL<1 OR COL»5 THEN4930 CL 
+4070 605083010:605085010 AH 
“4080 СЕТК$:ТЕК$<>"" THENA160 FN 
+4090 GOSUB4180 GC 
*4100 IFA2=1THENCOL=BC;ROW=BR-A:GOTO4120 OA 
*4110 COL=BC:ROW=BR+A KH 
*4120 IF ROW<1 OR ROW»5 ТНЕМ4090 IB 
*4130 605083010:605085010 AH 
*4140 СЕТК$:ТЕК$<>"" THEN4160 FN 


*4150 NEXT IA 
+4160 PRINTLEFT$(DO$, 5) ; LEFTS$(SP$,6); :GOS 
UB3040 FO 


*4170 RETURN IM 
*4180 AsINT(RND(1)*4)41 AP 
*4190 A2=INT(RND(1)*2) EB 
*4200 RETURN IM 
*5000 REM *** PREPARE TO SCROLL же AE 
*5010 IF COL<>BC THEN5060 10 
*5020 IF BR=ROW THEN RETURN BI 
+5030 VU-ABS(ROW-BR) :D=4:TR=ROW+1 IK 
*5040 IF BR<ROW THEN D=3:TR=ROW-1 BD 
+5050 ВК=КОМ: GOSUB1010: ROW=TR : GOSUB3040: R 

ETURN AK 
*5060 IF ROW<>BR THEN GOSUB6010:RETURN ЕЕ 
*5070 HU=ABS(COL-BC) :D=2:TC=COL+1 CE 
*5080 IF BC<COL THEN D=1:TC=COL-1 oD 


+5090 BC=COL:GOSUB1919:COL=TC:GOSUB3040:R 
ETURN KI 
*5100 IF COL<>BC THEN RETURN 

*600( REM жжжжжжж BUZZER жеж 

+6010 FORA=1T08;POKE54296, 15:FORT=1T03:NE 
XT: POKE54296 ,0:FORT=1T03 :NEXT: NEXT LF 
*6020 RETURN 

+6500 REM *** PONG SUBROUTINE *** 
*6510 5=54272 BI 
+6520 POKE S+1,20 
*6530 POKE S+5,9 
*6540 POKE S46,9 DP 
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*6550 POKE S+24,4 

*6560 POKE S+4,17 

*6570 RETURN 

*7000 REM ЖЖЖ GET KEYBOARD INPUT *** 
*7010 СЕТК$:ТЕК$="" THEN GOSUB2110:GOTO79 
10 

*7020 IFK$-CHR$(147)THEN350 


*7030 ТЕК$=" " THEN GOSUB5000:GOTO7010 ОА 
*7040 IF К$="А" AND ROW>1 THEN ROW=ROW-1: 
GOSUB36010:G0TO7016 EE 


*7050 IF K$="Z" AND ROW<5 THEN ROW=ROW+1: 
605083010:60Т07010 
*7060 IF K$="." AND COL<S THEN COL=COL+1: 


GOSUB3010:GOTO7010 FK 
7070 IF K$="," AND COL>1 THEN COL=COL-1: 

GOSUB3010:G0TO7010 BJ 
*7080 60707010 FL 


+800) REM жжжжжжж DRAW BOARD жокк IC 
«8010 CHe1:PRINTB1$; : ТЕК$=СНЕ$( 147 )ТНЕМ81 
00 PJ 
«8020 PRINTHM$ ; SPC(6) ; CHR$(117) ; : FORX-1TO 
27:PRINTCHR$(96) ; : NEXT : PRINTCHR$(105) 
*8030 PRINTSPC(6)CHR$(98);" "; :ЕОВХ=17025 
:PRINTCHR$ (164); : NEXT: PRINT" "CHR$(98) МС 
*8040 PRINTLEFT$(DO$,2):FOR X=1 TO 20 LH 
+8050 PRINT SPC(6) ;CHR$(98) ;CHR$(167) ;SPC 
(25); CHR$(180) ; CHR$(98) EF 
+806) NEXT 
«8070 PRINTHM$ ;LEFT$(DO$, 23) ; 
"8080 PRINTSPC(6)CHR$(98) ;" 
1PRINTCHR$(163) ; : NEXT: PRINT’ 
«8090 PRINTSPC(6) ; CHR$(106) ; : FORX-1T027 : P 
RINTCHR$(96) ; : NEXT: PRINTCHR$ (107) 
*8100 FOR ВОМ=1 TO 5 
*8110 FOR COL=1 TO 5 
*8120 IF ROW=5 AND COL-5 THEN PRINTB3$;:C 


IG 


MF 


HK 
DM 
DA 


U$2BS$:GOSUB3040:G0TO8170 KM 
*8130 PRINTB3$;:CU$-BS$:GOSUB 3040 KJ 
“8140 PRINTB1$; :CU$=T$ :GOSUB3040 BN 


"8150 PRINTB2$; :CU$=SZ$:GOSUB3040 DI 
*8160 PRINTCO$(ROW) ; CH$ (CH) ; B2$ ; CHR$(125) 
:CH=CH+1 L 


*8170 NEXT COL GF 
“8180 NEXT ROW HN 
“8190 RETURN IM 
.9000 REM KR ML ROUTINES eee; Оу 
*9010 FORT=49416T049815 GD 
*9020 READT:POKEL,T:NEXT CF 
“9030 RETURN IM 


*49416 DATA32,226,193,165,251,166,252,32, 
155,193,32,205,193,166,254,202,48 EI 
*49433 DATA21,24,165,208,105,40,133,210,1 
33,214,165,209,105,0,133,211,32 

*49450 DATA119,193,202,16,235,164,253,185 


,32,192,145,208,185,72,192,145,212 DA 
*49467 DATA136,16,243,32,226,193,88,96,23 
4,234,234,234,234,234,234,234,32 кс 
*49484 DATA226,193,32,132,194,170,165,251 
,32,155,193,32,205,193,166,254,202 РІ, 
“49501 DATA240,208,56,165,208,233,40,133, 
210,133,214,165,209,233,0,133,211 BL 


«49518 DATA24,32,119,193,202, 16, 234,48,18 
4,41,3,9,216, 133, 215, 164, 253 DM 
+49535 ФАТА177, 210, 145,208,177,214,145,21 
2,136,16,245,165,211,133,209,165,210 
*49552 DATA133,208,165,215,133,213,165,21 
4,133,212,96,72,169,216,133,208,172 
*49569 DATA136,2,136,132,209,24,165,208,1 
05,40,133,208,165,209,105,0,133 CF 
*49586 DATA209,202,16,240,24,104,101,208, 
133,208,133,212,165,209,105,0,133 PI 
*49603 DATA209,41,3,9,216,133,213,164,253 
,96,165,2,208,3, 169, 32, “4 КЕ 
-49620 DATA177,208,153,32,192,177,212,153 
,72,192,136,16,236,96, 120,162, 30 HL 
*49637 DATA181,208,72,189,0,192,149,208,1 
04,157,0,192,202,16,241,96,234 ЕК 
*49654 DATA234,234,234,234,234,234,234,32 
,226,193,32,132,194,165,251,166,211 EO 
-49671 DATA32,155,193,160,0,177,208,133,2 
10,177,212, 72, 144, 13,200, 177, 208 6G 
*49688 DATA72,177,212,136,145,212,104,145 


GM 
KC 


1208, 200, 196, 253, 144,239, 165,2, 208 NJ 
+49705 DATA3, 169,32, 44,165,210,145, 208,10 
4,145,212,198, 211,198, 254,16, 201 co 
+49722 DATA32, 226, 193,88, 96, 234,234,234, 2 
34, 234,234,234, 234,32, 226, 193,32 от 
+49739 DATA132, 194,165,251,166,211,32,155 
,193,177,208,133,210,177,212,72, 164 PO 
+49756 DATA253,240,15,136,177,208,72,177 , 
212,200,145,212,104,145,208,136,208 BB 


*49773 DATA241,165,2,208,3,169,32,44,165, 
210,145,208,104,145,212,198,211 AN 
“49790 DATA198,254,16,203,48,182,166,252, 
138,24,101,254,133,211,96,234,24 

«49807 DATA164,252,166,251,32,240,255,96, 


234 LB 
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MOVING Ga 2, 
THROUGH Cet C MOU 
Continued from page 80 
BASIC does with memory where it thinks screen mem- 
ory is. The VIC chip is still looking at 1024, which 
BASIC isn’t changing 

Now, if you are using this technique in a long pro- 
gram, then of course you'll have to move video mem- 
ory to a higher block. As it stands, your program would 
only have the space between the end of screen memory 
at 2048 and the beginning of BASIC's screen memory 
at 15360. That's fine for this example program, but a 
long game would need more elbow room. For the tech- 
nique of moving video memory, see the column two 
months ago, which played games with memory like you 
wouldn't believe. 

This technique will also work with the VIC, which 
also has its BASIC screen memory pointer at 648. How- 
ever, it is almost worthless to try this technique unless 
you have expanded memory beyond 8K; if you do have 
an expanded VIC, you should have little trouble trans- 
lating this program from the 64 version included in this 
issue. 


WORMS IN COLOR MEMORY 

You can do a lot more with color memory than just 
highlight options. Remember that the character patterns 
only decide which dots in a character cell display fore- 
ground color and which display background color. It’s 
color memory that does the rest. For example, you could 
fill the entire screen with characters, but if the back- 
ground color and the foreground color were the same, 
the screen would look completely blank. Only when you 
changed color memory would any portion of the screen 
become visible. 

So here is a rudimentary game that lets you control 
a worm moving around the screen. Every character on 
the screen is the same — CH$(90), the diamond-shaped 
dot, However, most of them are invisible, Some of them 
are orange —these are the segments of the worm. Some 
of them are green—these are food. When the worm eats 
food, it gets longer. 
The worm is run through the array variable WM (n). 
ich element of the array represents a segment of the 
worm; each element contains the address of that seg- 
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ment in color memory. Every time the worm moves, 
all the addresses are changed in the array WM (n), as 
segment 2 is now "located" where segment 1 used to be. 
But only the first and last segments need to be POKEd— 
the first segment is changed to the worm color, CW, 
and the last segment is changed to the background col- 
or, CB. When 12 bits of food have been "eaten" and the 
worm is 15 segments long, the game starts over. 

Use f7 and 15 for vertical movement, SHIFT and 
COMMODORE for horizontal movement. Press RUN 
STOP to end the game. Both VIC and 64 versions are 
included in the program listings section. 

Next month we'll take a close look at a fantastic pro- 
gram from Electronic Arts: Seven Cities of Gold. And 
we'll look at ways to make a program respond to the 
player's behavior, so that the whole mood of a game can 
take on the personality the player shows while playing 

What we're talking about is, in a sense, behavioral con- 
ditioning. By setting up a reward and punishment sys- 
tem, we'll be encouraging some actions and discourag- 
ing others. It's just as the parents of videogame players 
always suspected — we game designers are out to turn 
our players into puppets! 

Thanks to Walter Meyers and Jan Iverson for send- 
ing me their excellent games. Both of you set difficult 
problems for yourselves and solved them admirably. 1 
only wish you were offering them for publication, so 
that other readers could see some of the dazzling things 
that can be done with resourceful and creative game pro- 
gramming. 

Also, thanks to Derward F. McKinney, who kindly 
sent in all the changes that would be necessary to allow 
The Emerald Elephant of Cipangu, from one of these 
columns last fall, to run on the VIC 20 (with at least 
16K). If anyone would care to have a copy of his letter, 
send a stamped, self-addressed envelope to: 


Elephant for VIC 
546 Lindley Road 
Greensboro, NC 27410 


ГЇ! xerox Mr. McKinney's letter and send you a copy. 
Since I don't have memory expansion on my VIC, I can't 
test his changes, but I assume they work. O 

SEE PROGRAM LISTINGS ON PAGE 88 
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TIRED OF WAITING 
FOR YOUR PROGRAMS TO LOAD? 


INTRODUCING THE FAST LOAD 
CARTRIDGE FROM EPYX. 


You're tired of waiting forever for your Commodore 64 

to load. But it's no use glaring at your disk 
р, either. It w 
dthe FAST LOAD 

FAST LOAD transforms 
your Cc from a lumbering hippo 

into a leaping gazelle. With FAST LOAD, programs 
that once took minutes to load are booted up in a matter 

of seconds. 

с с о urhe cnn 


:// Je cartridge port 


born с 


of your Commodore 64 and goes to work automatic 
And t 
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